From: ueno <ueno>
Date: Thu, 2 Sep 2004 12:32:43 +0000 (+0000)
Subject: Fixed typo.
X-Git-Tag: riece-1_0_3~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4e209af2b937e48382b37d2425572eebb31abd45;p=elisp%2Friece.git

Fixed typo.
---

diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el
index 2ff492b..69cef4c 100644
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -84,7 +84,7 @@
     ;; Remove nonexistent users.
     (setq pointer (riece-channel-users (riece-get-channel channel-name)))
     (while pointer
-      (unless (assq (car (car pointer)) users)
+      (unless (assoc (car (car pointer)) users)
 	(riece-user-toggle-channel (car (car pointer)) channel-name nil)
 	(riece-channel-toggle-user channel-name (car (car pointer)) nil))
       (setq pointer (cdr pointer)))