From c24267572473dd6abc9715cb31f1f279ae403e90 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 5 Oct 2004 23:08:55 +0000 Subject: [PATCH] * riece.el (riece): Scan riece-startup-channel-list and open servers. --- lisp/ChangeLog | 4 ++++ lisp/riece.el | 8 ++++++++ 2 files changed, 12 insertions(+) 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 + + * riece.el (riece): Scan riece-startup-channel-list and open servers. + 2004-09-27 Daiki Ueno * 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) -- 1.7.10.4