projects
/
riece
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* riece-signal.el: Require 'riece-options for riece-debug.
[riece]
/
lisp
/
riece-user.el
diff --git
a/lisp/riece-user.el
b/lisp/riece-user.el
index
e42c825
..
8a3f974
100644
(file)
--- a/
lisp/riece-user.el
+++ b/
lisp/riece-user.el
@@
-24,6
+24,7
@@
;;; Code:
(require 'riece-identity)
;;; Code:
(require 'riece-identity)
+(require 'riece-mode)
;;; User object:
(defun riece-find-user (name)
;;; User object:
(defun riece-find-user (name)
@@
-134,11
+135,12
@@
away status, respectively."
(defun riece-user-toggle-mode (name mode flag)
"Add or remove user MODE of user."
(let* ((user (riece-get-user name))
(defun riece-user-toggle-mode (name mode flag)
"Add or remove user MODE of user."
(let* ((user (riece-get-user name))
- (modes (riece-user-modes user)))
+ (modes (riece-user-modes user))
+ (old (riece-mode-assoc (riece-mode-flag mode) modes)))
(if flag
(if flag
- (unless
(memq mode modes)
+ (unless
old
(riece-user-set-modes user (cons mode modes)))
(riece-user-set-modes user (cons mode modes)))
- (if
(memq mode modes)
+ (if
old
(riece-user-set-modes user (delq mode modes))))))
(defun riece-user-toggle-away (name flag)
(riece-user-set-modes user (delq mode modes))))))
(defun riece-user-toggle-away (name flag)