(if (equal riece-server-name "")
(message "Logging in to IRC server...done")
(message "Logging in to %s...done" riece-server-name))
+ (let ((channel-list riece-startup-channel-list))
+ (while channel-list
+ (if (listp (car channel-list))
+ (riece-command-join (car (car channel-list))
+ (nth 1 (car channel-list)))
+ (riece-command-join (car channel-list)))
+ (setq channel-list (cdr channel-list))))
(run-hooks 'riece-after-login-hook))
(defun riece-handle-004-message (prefix number name string)