2001-04-29 08:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* nnmail.el (nnmail-get-new-mail): Use the exact file only.
	Suggested by Michael Sperber [Mr. Preprocessor]
	<sperber@informatik.uni-tuebingen.de>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ea6eb38..baa8e4c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-04-29 08:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnmail.el (nnmail-get-new-mail): Use the exact file only.
+       Suggested by Michael Sperber [Mr. Preprocessor]  
+       <sperber@informatik.uni-tuebingen.de>.
+
 2001-04-25  Per Abrahamsen  <abraham@dina.kvl.dk>
 
        * mm-uu.el (mm-uu-configure-list): Fixed customize type.

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index c28abd5..8b6befa 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -1566,11 +1566,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
                                 (list
                                  :predicate
                                  `(lambda (file)
-                                    (string-match
-                                     ,(concat
-                                       (regexp-quote (concat group suffix))
-                                       "$")
-                                     file)))))))
+                                    (string-equal
+                                     ,(concat group suffix)
+                                     (file-name-nondirectory file))))))))
        (when nnmail-fetched-sources
          (if (member source nnmail-fetched-sources)
              (setq source nil)