From: Lars Magne Ingebrigtsen Date: Fri, 13 Feb 2015 06:44:40 +0000 (+0000) Subject: lisp/gnus/nnmail.el (nnmail-expiry-target-group): Allow expiring nnimap to a group... X-Git-Tag: emacs-25.0.90~2564^2~390 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a8f93d14cbc7a54bc09c7e4d841331588e86afa6;p=emacs.git lisp/gnus/nnmail.el (nnmail-expiry-target-group): Allow expiring nnimap to a group again --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f29a53e1aac..9ff191d05c0 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2015-02-13 Lars Ingebrigtsen + + * nnmail.el (nnmail-expiry-target-group): Supply the info structure to + `gnus-request-group'. + 2015-02-12 Katsumi Yamaoka * gnus-art.el (gnus-article-browse-html-save-cid-content) diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el index 62fcc2d8bd5..5c5481095e2 100644 --- a/lisp/gnus/nnmail.el +++ b/lisp/gnus/nnmail.el @@ -1921,7 +1921,7 @@ If TIME is nil, then return the cutoff time for oldness instead." (when (functionp target) (setq target (funcall target group))) (unless (eq target 'delete) - (when (or (gnus-request-group target) + (when (or (gnus-request-group target nil nil (gnus-get-info target)) (gnus-request-create-group target)) (let ((group-art (gnus-request-accept-article target nil nil t))) (when (and (consp group-art)