Mercurial > emacs
changeset 110211:6cdcc53703e4
mail-source.el (mail-source-fetch): Don't message if we're fetching mail from a file, and the file doesn't exist.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Sun, 05 Sep 2010 23:38:33 +0000 |
| parents | 3d982e5c5f58 |
| children | e9bead2d481f |
| files | lisp/gnus/ChangeLog lisp/gnus/mail-source.el |
| diffstat | 2 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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