diff options
| author | Miles Bader <miles@gnu.org> | 2008-03-29 19:54:11 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2008-03-29 19:54:11 +0000 |
| commit | 48ed2a5bec4518503bda8f0cd1b78de1e315f86f (patch) | |
| tree | 3e002af366632a511c061ca36fa4fd06752b921d /lisp/gnus/mail-source.el | |
| parent | 9d8f220b390710e6a940d72fe4053f2f1d2ed454 (diff) | |
| download | emacs-48ed2a5bec4518503bda8f0cd1b78de1e315f86f.tar.gz | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1104
Diffstat (limited to 'lisp/gnus/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 3a90990d5d8..088b91d8d58 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -555,7 +555,8 @@ If CONFIRM is non-nil, ask for confirmation before removing a file." 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 |