diff options
| author | Lars Magne Ingebrigtsen <larsi@gnus.org> | 2010-09-05 00:34:16 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2010-09-05 00:34:16 +0000 |
| commit | 8c3e17f87bb02b8a2b05f66948c28b08a89e6d87 (patch) | |
| tree | 4c4abcd967c2ffa8a91b8e1df0fbc68fe45a5bea /lisp/gnus/nnmail.el | |
| parent | 6aeafb34372289081799c952bad2b80f19736be3 (diff) | |
| download | emacs-8c3e17f87bb02b8a2b05f66948c28b08a89e6d87.tar.gz emacs-8c3e17f87bb02b8a2b05f66948c28b08a89e6d87.tar.bz2 emacs-8c3e17f87bb02b8a2b05f66948c28b08a89e6d87.zip | |
Rewrite the Gnus group activation method to be more efficient; nnmh.el (nnmh-request-list-1): Fix up the recursion behavior; Add more changes related to the new methodology for requesting backend data.
Diffstat (limited to 'lisp/gnus/nnmail.el')
| -rw-r--r-- | lisp/gnus/nnmail.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 2f218681918..b7d834ecd8c 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1823,8 +1823,6 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." ;; The we go through all the existing mail source specification ;; and fetch the mail from each. (while (setq source (pop fetching-sources)) - (nnheader-message 4 "%s: Reading incoming mail from %s..." - method (car source)) (when (setq new (mail-source-fetch source @@ -1842,8 +1840,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (incf i))) ;; If we did indeed read any incoming spools, we save all info. (if (zerop total) - (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" - method (car source)) + (when mail-source-plugged + (nnheader-message 4 "%s: Reading incoming mail (no new mail)...done" + method (car source))) (nnmail-save-active (nnmail-get-value "%s-group-alist" method) (nnmail-get-value "%s-active-file" method)) |