* riece-options.el (riece-startup-channel-list): Revive.

[riece] / lisp / riece-000.el

diff --git a/lisp/riece-000.el b/lisp/riece-000.el
index 9a442f2..2f7c713 100644 (file)
--- a/lisp/riece-000.el
+++ b/lisp/riece-000.el
@@ -49,6 +49,13 @@
   (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)