Changes committed gnus/lisp (ChangeLog mail-source.el)

Modified: ChangeLog mail-source.el

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


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1790 gnus/lisp/ChangeLog:7.1791
--- ChangeLog:7.1790	Thu Mar 13 10:58:46 2008
+++ ChangeLog	Fri Mar 14 14:43:32 2008
@@ -1,3 +1,8 @@
+2008-03-14  Katsumi Yamaoka  <[email protected]>
+
+	* mail-source.el (mail-source-delete-old-incoming) Fix regexp to find
+	Incoming* files.
+
 2008-03-13  Teodor Zlatanov  <[email protected]>
 
 	* auth-source.el (auth-sources): Renamed from auth-source-choices.
Index: mail-source.el
diff -u gnus/lisp/mail-source.el:7.29 gnus/lisp/mail-source.el:7.30
--- mail-source.el:7.29	Sat Mar  8 17:03:26 2008
+++ mail-source.el	Fri Mar 14 14:43:32 2008
@@ -555,7 +555,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