From: ueno <ueno>
Date: Fri, 24 Oct 2003 03:57:50 +0000 (+0000)
Subject: * riece-naming.el (riece-naming-assert-rename): Fixed.
X-Git-Tag: riece-0_1_5a~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ae7d6ca7fd706e2a22265f53b1364ef20af176d4;p=elisp%2Friece.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 16638f3..671764d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 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.
 	* riece-version.el (riece-version-number): Bump up to 0.1.5.
 
diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index 5295b8d..7ffedac 100644
--- 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)))