X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnmail.el;h=227f61c0b6944d70ec35d88d757181126fb83a0b;hb=e5bec5d05f433a43fa2d14cdb7bebeeefab8835f;hp=912a232246bdae8b1f42bd66241a39c0efa55d22;hpb=074b112f1aa3334c0ec4f44bdab9d59a2f9c1881;p=elisp%2Fgnus.git-

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 912a232..227f61c 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -38,15 +38,6 @@
   (autoload 'gnus-error "gnus-util")
   (autoload 'gnus-buffer-live-p "gnus-util"))
 
-(eval-when-compile (require 'static))
-
-(static-condition-case nil
-    :symbol-for-testing-whether-colon-keyword-is-available-or-not
-  (void-variable
-   (defconst :user ':user)
-   (defconst :path ':path)
-   (defconst :predicate ':predicate)))
-
 (defgroup nnmail nil
   "Reading mail with Gnus."
   :group 'gnus)
@@ -1576,11 +1567,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)