2003-02-08 Michael Welsh Duggan <md5i@cs.cmu.edu>

	* nnmail.el (nnmail-split-it): If a message ends up matching the
	  same mailbox more than once, it will cause duplicates to appear
	  in the mailbox.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57a132a..7eb5660 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-02-08  Michael Welsh Duggan  <md5i@cs.cmu.edu>
+
+       * nnmail.el (nnmail-split-it): If a message ends up matching the
+         same mailbox more than once, it will cause duplicates to appear
+         in the mailbox.
+
 2003-02-08  Simon Josefsson  <jas@extundo.com>
 
        * gnus-sum.el (gnus-summary-select-article): Remove blink removal

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 1fa9e6a..fd2fccf 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1331,7 +1331,7 @@ See the documentation for the variable `nnmail-split-fancy' for details."
                ;; correct match positions.
                (re-search-backward value start-of-value))
              (dolist (sp (nnmail-split-it (car split-rest)))
-               (unless (memq sp split-result)
+               (unless (member sp split-result)
                  (push sp split-result))))))
        split-result))