[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101362: mail-source.el (mail-source-
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101362: mail-source.el (mail-source-fetch): Don't message if we're fetching mail from a file, and the file doesn't exist. |
Date: |
Sun, 05 Sep 2010 23:38:33 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101362
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 23:38:33 +0000
message:
mail-source.el (mail-source-fetch): Don't message if we're fetching mail from
a file, and the file doesn't exist.
modified:
lisp/gnus/ChangeLog
lisp/gnus/mail-source.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-09-05 23:34:30 +0000
+++ b/lisp/gnus/ChangeLog 2010-09-05 23:38:33 +0000
@@ -1,5 +1,8 @@
2010-09-05 Lars Magne Ingebrigtsen <address@hidden>
+ * 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
=== modified file 'lisp/gnus/mail-source.el'
--- a/lisp/gnus/mail-source.el 2010-09-05 01:27:15 +0000
+++ b/lisp/gnus/mail-source.el 2010-09-05 23:38:33 +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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101362: mail-source.el (mail-source-fetch): Don't message if we're fetching mail from a file, and the file doesn't exist.,
Katsumi Yamaoka <=