From 8695c9a712dcc123d7a775a64bc4201269e86dfc Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sun, 5 Sep 2010 23:38:33 +0000 Subject: [PATCH] mail-source.el (mail-source-fetch): Don't message if we're fetching mail from a file, and the file doesn't exist. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/mail-source.el | 15 ++++++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index bc814ee3a92..24a5c8dee4e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2010-09-05 Lars Magne Ingebrigtsen + * 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 --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index 7a626869347..d3ceb6dfd07 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -544,11 +544,16 @@ Return the number of files that were found." (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 -- 2.39.2