(mail-source-delete-old-incoming) Fix regexp to find Incoming* files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fab8131..6e28f78 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * mail-source.el (mail-source-delete-old-incoming) Fix regexp to find
+       Incoming* files.
+
 2008-03-13  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * auth-source.el (auth-sources): Renamed from auth-source-choices.

diff --git a/lisp/mail-source.el b/lisp/mail-source.el
index 3a90990..088b91d 100644 (file)
--- a/lisp/mail-source.el
+++ b/lisp/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