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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16638f3..671764d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-24  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-naming.el (riece-naming-assert-rename): Fixed.
+
 2003-10-24  Daiki Ueno  <ueno@unixuser.org>
 
        * Riece: Version 0.1.5 released.

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)))