* riece-300.el (riece-handle-317-message): Fix regexp for signon

[riece] / lisp / riece-channel.el

diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el
index 86ed2ac..1f0c293 100644 (file)
--- a/lisp/riece-channel.el
+++ b/lisp/riece-channel.el
@@ -192,7 +192,7 @@ respectively."
     (if flag
        (unless (riece-identity-assoc user users t)
          (riece-channel-set-users channel (cons (list user) users)))
-      (if (setq user (car (riece-identity-assoc user users t)))
+      (if (setq user (riece-identity-assoc user users t))
          (riece-channel-set-users channel (delq user users))))))
 
 (defun riece-channel-toggle-operator (name user flag)