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

[riece] / lisp / riece-000.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))
-         (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))