From a8f93d14cbc7a54bc09c7e4d841331588e86afa6 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Fri, 13 Feb 2015 06:44:40 +0000 Subject: [PATCH] lisp/gnus/nnmail.el (nnmail-expiry-target-group): Allow expiring nnimap to a group again --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nnmail.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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) -- 2.39.2