[Emacs-diffs] Changes to emacs/lisp/gnus/mail-source.el, v [EMACS_22_BASE]

[Reiner Steib]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Reiner Steib <rsteib>   08/03/19 21:01:39

Index: mail-source.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/mail-source.el,v
retrieving revision 1.25.2.5
retrieving revision 1.25.2.6
diff -u -b -r1.25.2.5 -r1.25.2.6
--- mail-source.el      8 Mar 2008 12:06:58 -0000       1.25.2.5
+++ mail-source.el      19 Mar 2008 21:01:37 -0000      1.25.2.6
@@ -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