* riece-300.el (riece-handle-317-message): Fix regexp for signon
[elisp/riece.git] / lisp / riece-naming.el
index 5295b8d..7ffedac 100644 (file)
@@ -57,7 +57,7 @@
         users user)
     (while channels
       (setq users (riece-channel-get-users (car channels))
-           user (car (riece-identity-assoc old-name users t)))
+           user (riece-identity-assoc old-name users t))
       (if user
          (setcar user new-name))
       (setq channels (cdr channels)))