From 3be91928874cde2fa9f899bd16b80bcedf5d3fd8 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 29 Sep 2003 02:59:48 +0000 Subject: [PATCH] * riece-000.el (riece-handle-001-message): Parse elements in riece-startup-channel-list. --- lisp/ChangeLog | 5 +++++ lisp/riece-000.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a485b34..47dce37 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2003-09-29 Daiki Ueno + + * riece-000.el (riece-handle-001-message): Parse elements in + riece-startup-channel-list. + 2003-09-21 TAKAHASHI Kaoru * riece-skk-kakutei.el diff --git a/lisp/riece-000.el b/lisp/riece-000.el index 2f7c713..1b2abbe 100644 --- a/lisp/riece-000.el +++ b/lisp/riece-000.el @@ -52,9 +52,9 @@ (let ((channel-list riece-startup-channel-list)) (while channel-list (if (listp (car channel-list)) - (riece-command-join (car (car channel-list)) + (riece-command-join (riece-parse-identity (car (car channel-list))) (nth 1 (car channel-list))) - (riece-command-join (car channel-list))) + (riece-command-join (riece-parse-identity (car channel-list)))) (setq channel-list (cdr channel-list)))) (run-hooks 'riece-after-login-hook)) -- 1.7.10.4