-;;; riece-irc.el --- IRC protocol
+;;; riece-irc.el --- IRC protocol -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(if password
(riece-process-send-string process
(format "PASS %s\r\n" password)))
+ (riece-process-send-string process (format "NICK %s\r\n" nickname))
+ (unless realname
+ (setq realname (riece-mcat "No information given")))
+ (if coding
+ (setq realname (encode-coding-string realname
+ (if (consp coding)
+ (cdr coding)
+ coding))))
(riece-process-send-string process
(format "USER %s * * :%s\r\n"
(or username
(user-real-login-name))
- (or realname
- "No information given")))
- (riece-process-send-string process (format "NICK %s\r\n" nickname))
+ realname))
(with-current-buffer (process-buffer process)
(setq riece-last-nickname riece-real-nickname
riece-nick-accepted 'sent