Mercurial > emacs

diff lisp/gnus/mail-source.el @ 80349:07ebd0fc42b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[ Merge from Gnus v5-10 ] 2008-03-19 Nils Ackermann <nils@ackermath.info> (tiny change) * nnmh.el (nnmh-request-expire-articles): Prefer expiry-target group parameter. * message.el (message-disassociate-draft): Specify drafts group name fully. 2008-03-19 Katsumi Yamaoka <yamaoka@jpl.org> * mail-source.el (mail-source-delete-old-incoming) Fix regexp to find Incoming* files. 2008-03-19 Katsumi Yamaoka <yamaoka@jpl.org> * nntp.el (nntp-open-telnet-stream, nntp-open-via-rlogin-and-telnet) (nntp-open-via-telnet-and-telnet): Make sure the nntp port to specify is a string.
author Reiner Steib <Reiner.Steib@gmx.de>
date Wed, 19 Mar 2008 21:01:37 +0000
parents 6bd4639256ce
children
line wrap: on
line diff
--- a/lisp/gnus/mail-source.el	Wed Mar 19 07:08:48 2008 +0000
+++ b/lisp/gnus/mail-source.el	Wed Mar 19 21:01:37 2008 +0000
@@ -536,7 +536,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