* riece-naming.el (riece-naming-assert-rename): Fixed.

[riece] / lisp / riece-naming.el

diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index 5295b8d..7ffedac 100644 (file)
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -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)))