+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.
"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)
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