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/mail-source.el | |
| parent | 6aeafb34372289081799c952bad2b80f19736be3 (diff) | |
| download | emacs-8c3e17f87bb02b8a2b05f66948c28b08a89e6d87.tar.gz | |
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/mail-source.el')
| -rw-r--r-- | lisp/gnus/mail-source.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/gnus/mail-source.el b/lisp/gnus/mail-source.el index ec15e982390..08b7a5ebbd2 100644 --- a/lisp/gnus/mail-source.el +++ b/lisp/gnus/mail-source.el @@ -536,7 +536,7 @@ See `mail-source-bind'." (t value))) -(defun mail-source-fetch (source callback) +(defun mail-source-fetch (source callback &optional method) "Fetch mail from SOURCE and call CALLBACK zero or more times. CALLBACK will be called with the name of the file where (some of) the mail from SOURCE is put. @@ -544,6 +544,11 @@ 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)) (let ((function (cadr (assq (car source) mail-source-fetcher-alist))) (found 0)) (unless function |