* liece-make.el (make-liece-sample-files): Abolish.

[elisp/liece.git] / lisp / liece-channel.el

diff --git a/lisp/liece-channel.el b/lisp/liece-channel.el
index c11ca08..1bfe07b 100644 (file)
--- a/lisp/liece-channel.el
+++ b/lisp/liece-channel.el
@@ -139,7 +139,8 @@
   "Add MODE as char to CHNL."
   `(let ((modes (string-to-char-list (or (liece-channel-get-modes ,chnl)
                                         ""))))
-     (pushnew ,mode modes)
+     (or (memq ,mode modes)
+        (push ,mode modes))
      (put (intern (or ,chnl liece-current-channel) liece-obarray)
          'mode (mapconcat #'char-to-string modes ""))))
 
@@ -160,7 +161,8 @@
 (defmacro liece-channel-add-ban (pattern &optional chnl)
   "Add ban PATTERN as char to CHNL."
   `(let ((patterns (liece-channel-get-bans ,chnl)))
-     (add-to-list 'patterns ,pattern)
+     (or (string-list-member-ignore-case ,pattern patterns)
+        (push ,pattern patterns))
      (put (intern (or ,chnl liece-current-channel) liece-obarray)
          'ban patterns)))
 
@@ -180,7 +182,8 @@
 (defmacro liece-channel-add-exception (pattern &optional chnl)
   "Add exception PATTERN as char to CHNL."
   `(let ((patterns (liece-channel-get-exceptions ,chnl)))
-     (pushnew ,pattern patterns)
+     (or (string-list-member-ignore-case ,pattern patterns)
+        (push ,pattern patterns))
      (put (intern (or ,chnl liece-current-channel) liece-obarray)
          'exception patterns)))
 
@@ -200,7 +203,8 @@
 (defmacro liece-channel-add-invite (pattern &optional chnl)
   "Add invite PATTERN as char to CHNL."
   `(let ((patterns (liece-channel-get-invites ,chnl)))
-     (pushnew ,pattern patterns)
+     (or (string-list-member-ignore-case ,pattern patterns)
+        (push ,pattern patterns))
      (put (intern (or ,chnl liece-current-channel) liece-obarray)
          'invite patterns)))