* riece-user.el (riece-user-toggle-channel): Use member instead of

memq.

diff --git a/lisp/riece-user.el b/lisp/riece-user.el
index e584b74..28d061c 100644 (file)
--- a/lisp/riece-user.el
+++ b/lisp/riece-user.el
@@ -125,7 +125,7 @@ away status, respectively."
   (let* ((user (riece-get-user (or name (riece-current-nickname))))
         (channels (riece-user-channels user)))
     (if flag
   (let* ((user (riece-get-user (or name (riece-current-nickname))))
         (channels (riece-user-channels user)))
     (if flag

-       (unless (memq channel channels)
+       (unless (member channel channels)

          (riece-user-set-channels user (cons channel channels)))
       (if (setq channel (car (member channel channels)))
          (riece-user-set-channels user (delq channel channels))))))
          (riece-user-set-channels user (cons channel channels)))
       (if (setq channel (car (member channel channels)))
          (riece-user-set-channels user (delq channel channels))))))