* 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 (file)
--- 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
 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 (file)
--- 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))
   (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)))
                              (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))
 
       (setq channel-list (cdr channel-list))))
   (run-hooks 'riece-after-login-hook))