(spam-enter-list): search-forward specified wrong

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9820616..4354e10 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-19  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * spam.el (spam-enter-list): search-forward specified wrong
+
 2003-06-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-art.el: Comment fix.

diff --git a/lisp/spam.el b/lisp/spam.el
index bdf73e1..d6b07d7 100644 (file)
--- a/lisp/spam.el
+++ b/lisp/spam.el
@@ -965,7 +965,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)."
   (save-excursion
     (set-buffer
      (find-file-noselect file))
-    (unless (search-forward (regexp-quote address))
+    (unless (search-forward (regexp-quote address) nil t)
       (goto-char (point-max))
       (unless (bobp)
        (insert "\n"))