Mercurial > emacs

diff lisp/gnus/mail-source.el @ 93386:a789a1138b08

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1104
author Miles Bader <miles@gnu.org>
date Sat, 29 Mar 2008 19:54:11 +0000
parents 59b897c894c7
children 217fd7a2dc38
line wrap: on
line diff
--- a/lisp/gnus/mail-source.el	Sat Mar 29 15:28:57 2008 +0000
+++ b/lisp/gnus/mail-source.el	Sat Mar 29 19:54:11 2008 +0000
@@ -555,7 +555,8 @@
 	 currday files)
     (setq files (directory-files
 		 mail-source-directory t
-		 (concat mail-source-incoming-file-prefix "*"))
+		 (concat "\\`"
+			 (regexp-quote mail-source-incoming-file-prefix)))
 	  currday (* (car (current-time)) high2days)
 	  currday (+ currday (* low2days (nth 1 (current-time)))))
     (while files