--- lisp/nnmail.el.orig	Fri Apr 13 17:57:45 2001
+++ lisp/nnmail.el	Sun Apr 29 13:13:30 2001
@@ -1568,9 +1568,10 @@
 				  `(lambda (file)
 				     (string-match
 				      ,(concat
+					"^"
 					(regexp-quote (concat group suffix))
 					"$")
-				      file)))))))
+				      (file-name-nondirectory file))))))))
 	(when nnmail-fetched-sources
 	  (if (member source nnmail-fetched-sources)
 	      (setq source nil)