From: ueno <ueno>
Date: Mon, 29 Sep 2003 02:59:48 +0000 (+0000)
Subject: * riece-000.el (riece-handle-001-message): Parse elements in
X-Git-Tag: riece-0_1_2~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3be91928874cde2fa9f899bd16b80bcedf5d3fd8;p=elisp%2Friece.git

* riece-000.el (riece-handle-001-message): Parse elements in
riece-startup-channel-list.
---

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  <ueno@unixuser.org>
+
+	* riece-000.el (riece-handle-001-message): Parse elements in
+	riece-startup-channel-list.
+
 2003-09-21  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* 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))