# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1283729913 0
# Node ID 6cdcc53703e4afd171bb8084630ead9864d5839e
# Parent  3d982e5c5f58e977c41a28433a7e0aab84193834
mail-source.el (mail-source-fetch): Don't message if we're fetching mail from a file, and the file doesn't exist.

diff -r 3d982e5c5f58 -r 6cdcc53703e4 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Sep 05 23:34:30 2010 +0000
+++ b/lisp/gnus/ChangeLog	Sun Sep 05 23:38:33 2010 +0000
@@ -1,5 +1,8 @@
 2010-09-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+	* mail-source.el (mail-source-fetch): Don't message if we're fetching
+	mail from a file, and the file doesn't exist.
+
 	* pop3.el (pop3-streaming-movemail): Return t for success.
 
 	* nnimap.el (nnimap-open-connection): Look for the "imaps" entry in the
diff -r 3d982e5c5f58 -r 6cdcc53703e4 lisp/gnus/mail-source.el
--- a/lisp/gnus/mail-source.el	Sun Sep 05 23:34:30 2010 +0000
+++ b/lisp/gnus/mail-source.el	Sun Sep 05 23:38:33 2010 +0000
@@ -544,11 +544,16 @@
   (mail-source-bind-common source
     (if (or mail-source-plugged plugged)
 	(save-excursion
-	  (nnheader-message 4 "%sReading incoming mail from %s..."
-			    (if method
-				(format "%s: " method)
-			      "")
-			    (car source))
+	  ;; Special-case the `file' handler since it's so common and
+	  ;; just adds noise.
+	  (when (or (not (eq (car source) 'file))
+		    (mail-source-bind (file source)
+		      (file-exists-p path)))
+	    (nnheader-message 4 "%sReading incoming mail from %s..."
+			      (if method
+				  (format "%s: " method)
+				"")
+			      (car source)))
 	  (let ((function (cadr (assq (car source) mail-source-fetcher-alist)))
 		(found 0))
 	    (unless function