* riece.el (riece): Scan riece-startup-channel-list and open servers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fecf400..67daa33 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-05  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece.el (riece): Scan riece-startup-channel-list and open servers.
+
 2004-09-27  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-options.el (riece-send-delay): Set default to 2.

diff --git a/lisp/riece.el b/lisp/riece.el
index 33d3030..e815b16 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -310,6 +310,14 @@ If optional argument CONFIRM is non-nil, ask which IRC server to connect."
        (while server-list
          (riece-command-open-server (car server-list))
          (setq server-list (cdr server-list))))
+      (let ((channel-list riece-startup-channel-list)
+           server)
+       (while channel-list
+         (setq server (riece-identity-server
+                       (riece-parse-identity (car channel-list))))
+         (unless (riece-server-opened server)
+           (riece-command-open-server server))
+         (setq channel-list (cdr channel-list))))
       (let ((pointer riece-addons))
        (while pointer
          (unless (get (car pointer) 'riece-addon-default-disabled)