procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

mail-source.el (mail-source-fetch): Don't message if we're fetching mail from a file, and the file doesn't exist.

Browse source
This commit is contained in:
Lars Magne Ingebrigtsen 2010-09-05 23:38:33 +00:00 • committed by Katsumi Yamaoka
parent 3ff31c90ab
commit 8695c9a712
2 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/gnus/ChangeLog
View file

@ -1,5 +1,8 @@
2010-09-05 Lars Magne Ingebrigtsen <larsi@gnus.org> 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. * pop3.el (pop3-streaming-movemail): Return t for success.
* nnimap.el (nnimap-open-connection): Look for the "imaps" entry in the * nnimap.el (nnimap-open-connection): Look for the "imaps" entry in the

15
lisp/gnus/mail-source.el
View file

@ -544,11 +544,16 @@ Return the number of files that were found."
(mail-source-bind-common source (mail-source-bind-common source
(if (or mail-source-plugged plugged) (if (or mail-source-plugged plugged)
(save-excursion (save-excursion
(nnheader-message 4 "%sReading incoming mail from %s..." ;; Special-case the `file' handler since it's so common and
(if method ;; just adds noise.
(format "%s: " method) (when (or (not (eq (car source) 'file))
"") (mail-source-bind (file source)
(car 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))) (let ((function (cadr (assq (car source) mail-source-fetcher-alist)))
(found 0)) (found 0))
(unless function (unless function