Fixed typo.
authorDaiki Ueno <ueno@unixuser.org>
Thu, 2 Sep 2004 12:32:43 +0000 (12:32 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Thu, 2 Sep 2004 12:32:43 +0000 (12:32 +0000)
lisp/riece-naming.el

index 2ff492b..69cef4c 100644 (file)
@@ -84,7 +84,7 @@
     ;; Remove nonexistent users.
     (setq pointer (riece-channel-users (riece-get-channel channel-name)))
     (while pointer
     ;; 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)))
        (riece-user-toggle-channel (car (car pointer)) channel-name nil)
        (riece-channel-toggle-user channel-name (car (car pointer)) nil))
       (setq pointer (cdr pointer)))