From: ueno <ueno>
Date: Tue, 5 Oct 2004 23:08:55 +0000 (+0000)
Subject: * riece.el (riece): Scan riece-startup-channel-list and open servers.
X-Git-Tag: riece-1_0_4~2
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c24267572473dd6abc9715cb31f1f279ae403e90;p=elisp%2Friece.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fecf400..67daa33 100644
--- 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
--- 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)