lisp/gnus/nnmail.el (nnmail-expiry-target-group): Allow expiring nnimap to a group...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index f29a53e1aac526ddc0171eee01f1ffe2bc7519f6..9ff191d05c0ffe24eecdbac6fa17a85e6cae5b2b 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-13  Lars Ingebrigtsen  <larsi@gnus.org>
+
+       * nnmail.el (nnmail-expiry-target-group): Supply the info structure to
+       `gnus-request-group'.
+
 2015-02-12  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-browse-html-save-cid-content)

diff --git a/lisp/gnus/nnmail.el b/lisp/gnus/nnmail.el
index 62fcc2d8bd52a058dd49340228afb060c7bf8b16..5c5481095e20ef5fde27cb19183d182c9789c382 100644 (file)
--- 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)