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

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
(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