X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-user.el;h=28d061c9a8e4ee6449cd054975038eed5f63c2b5;hp=e584b7446179ee547f804570eda33fe0d32c9c88;hb=91772c72f3cd72f070f25ea66acd66b4abc8380a;hpb=fe7ce5e9a344721b1ecdd4d9ec1adce5dc908a49

diff --git a/lisp/riece-user.el b/lisp/riece-user.el
index e584b74..28d061c 100644
--- 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
-	(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))))))