From: Daiki Ueno <ueno@unixuser.org>
Date: Thu, 2 Sep 2004 12:32:43 +0000 (+0000)
Subject: Fixed typo.
X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=commitdiff_plain;h=ae14ab076cab916c4e59da5cc9f72a0b668137d9;hp=32f0d2d03f51102e8577ce8a603264839936c04f

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