emacs-diffs
[Top][All Lists]
Advanced

[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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]