projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* 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
(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)))))))
(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
(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)))))))
(riece-channel-set-users channel (cons (list user ?v) users)))
(if user
(setcdr user (delq ?v (cdr user)))))))