Unbreak `group' option for `mail-sources'
authorMichael Sperber <mike@xemacs.org>
Mon, 19 Oct 2015 14:18:27 +0000 (14:18 +0000)
committerKatsumi Yamaoka <yamaoka@jpl.org>
Mon, 19 Oct 2015 14:18:27 +0000 (14:18 +0000)
* nnml.el (nnml-retrieve-groups, nnml-request-scan):
* nnmail.el (nnmail-get-new-mail-per-group):
(nnmail-get-new-mail-1): Unbreak `group' option for `mail-sources'.

lisp/ChangeLog
lisp/nnmail.el

index 9ea368d..7836b0b 100644 (file)
@@ -1,3 +1,9 @@
+2015-10-18  Michael Sperber  <mike@xemacs.org>
+
+       * nnml.el (nnml-retrieve-groups, nnml-request-scan):
+       * nnmail.el (nnmail-get-new-mail-per-group):
+       (nnmail-get-new-mail-1): Unbreak `group' option for `mail-sources'.
+
 2015-10-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * auth-source.el (auth-source-epa-make-gpg-token): Revert.
index 7efb154..f3ba169 100644 (file)
@@ -1792,6 +1792,12 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
   "Read new incoming mail."
   (nnmail-get-new-mail-1 method exit-func temp group nil spool-func))
 
+(defun nnmail-get-new-mail-per-group ()
+  "Tell us whether the mail-sources specify that `nnmail-get-new-mail' should
+be called once per group or once for all groups."
+  (or (assq 'group mail-sources)
+      (assq 'directory mail-sources)))
+
 (defun nnmail-get-new-mail-1 (method exit-func temp
                              group in-group spool-func)
   (let* ((sources mail-sources)
@@ -1804,7 +1810,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
               sources)
       (while (setq source (pop sources))
        ;; Use group's parameter
-       (when (eq (car source) 'group)
+       (when (and (eq (car source) 'group)
+                  group)
          (let ((mail-sources
                 (list
                  (gnus-group-find-parameter