diff options
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 e0fbaff66e2..8b59e183b25 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -536,7 +536,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 |