* riece-mini.el (riece-mini-backlog-size): Change default value.

[riece] / lisp / riece-channel.el

diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el
index da4b75d..a59b7ed 100644 (file)
--- a/lisp/riece-channel.el
+++ b/lisp/riece-channel.el
@@ -204,7 +204,8 @@ respectively."
     (setq user (riece-identity-assoc user users t))
     (if flag
        (if user
-           (setcdr user (cons ?o (cdr user)))
+           (unless (memq ?o (cdr user))
+             (setcdr user (cons ?o (cdr user))))
          (riece-channel-set-users channel (cons (list user ?o) users)))
       (if user
          (setcdr user (delq ?o (cdr user)))))))
@@ -216,7 +217,8 @@ respectively."
     (setq user (riece-identity-assoc user users t))
     (if flag
        (if user
-           (setcdr user (cons ?v (cdr user)))
+           (unless (memq ?v (cdr user))
+             (setcdr user (cons ?v (cdr user))))
          (riece-channel-set-users channel (cons (list user ?v) users)))
       (if user
          (setcdr user (delq ?v (cdr user)))))))