This avoids noise when scanning for new mail.
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.
+
* imap.el (imap-log): New convenience function used throughout instead
of repeating the same code all over the place.
* imap.el (imap-log): New convenience function used throughout instead
of repeating the same code all over the place.
(mail-source-bind-common source
(if (or mail-source-plugged plugged)
(save-excursion
(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
(let ((function (cadr (assq (car source) mail-source-fetcher-alist)))
(found 0))
(unless function