(spam-enter-list): do not enter duplicate addresses into

the whitelist/blacklist

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c26100a..52ee2d7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-19  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-enter-list): do not enter duplicate addresses into
+       the whitelist/blacklist
+
 2003-06-19  Jesper Harder  <harder@ifa.au.dk>
 
        * nnheader.el (nnheader-init-server-buffer): Add

diff --git a/lisp/spam.el b/lisp/spam.el
index bcd2119..205f2be 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -965,11 +965,12 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
   (save-excursion
     (set-buffer
      (find-file-noselect file))
-    (goto-char (point-max))
-    (unless (bobp)
-      (insert "\n"))
-    (insert address "\n")
-    (save-buffer)))
+    (unless (search-forward (regexp-quote address))
+      (goto-char (point-max))
+      (unless (bobp)
+       (insert "\n"))
+      (insert address "\n")
+      (save-buffer))))
 
 ;;; returns t if the sender is in the whitelist, nil or spam-split-group otherwise
 (defun spam-check-whitelist ()