(require 'riece-misc)
(require 'riece-filter) ;riece-default-handle-message
(require 'riece-version)
+(require 'riece-commands) ;riece-command-join
(eval-when-compile
(autoload 'riece-default-handle-numeric-reply "riece-filter"))
(setq riece-real-server-name prefix
riece-real-nickname name
riece-real-userhost nil)
+ ;; Before sending USERHOST, register myself with riece-obarray
+ ;; because it may take some time.
+ (riece-get-user name)
(riece-send-string (format "USERHOST %s\r\n" riece-real-nickname))
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
(let ((channel-list riece-startup-channel-list))
(while channel-list
(if (listp (car channel-list))
- (riece-command-join (car (car channel-list))
+ (riece-command-join (riece-parse-identity (car (car channel-list)))
(nth 1 (car channel-list)))
- (riece-command-join (car channel-list)))
+ (riece-command-join (riece-parse-identity (car channel-list))))
(setq channel-list (cdr channel-list))))
(run-hooks 'riece-after-login-hook))