* 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 86ed2ac..a59b7ed 100644 (file)
--- a/lisp/riece-channel.el
+++ b/lisp/riece-channel.el
@@ -27,6 +27,7 @@
 (require 'riece-options)
 (require 'riece-globals)
 (require 'riece-identity)
+(require 'riece-mode)
 
 ;;; Channel object:
 (defun riece-find-channel (name)
@@ -147,12 +148,13 @@ respectively."
 (defun riece-channel-toggle-mode (name mode flag)
   "Add or remove channel MODE of channel."
   (let* ((channel (riece-get-channel name))
-        (modes (riece-channel-modes channel)))
+        (modes (riece-channel-modes channel))
+        (old (riece-mode-assoc (riece-mode-flag mode) modes)))
     (if flag
-       (unless (memq mode modes)
+       (unless old
          (riece-channel-set-modes channel (cons mode modes)))
-      (if (memq mode modes)
-         (riece-channel-set-modes channel (delq mode modes))))))
+      (if old
+         (riece-channel-set-modes channel (delq old modes))))))
 
 (defun riece-channel-toggle-banned (name pattern flag)
   "Add or remove banned PATTERN of channel."
@@ -192,7 +194,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)
@@ -202,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)))))))
@@ -214,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)))))))