X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-channel.el;h=a59b7eddb2643597307d2ff9f100d0f70b051b50;hp=da4b75db88f71f65a92bd528185e20f31240f5be;hb=028db0ba3a8afe412aca6e282992a59aff210a80;hpb=ce31ecd481aadab99d158271dc360dc4d33d8af8

diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el
index da4b75d..a59b7ed 100644
--- 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)))))))