From d67d60a2eab5f7f1f9b1d31cd1c7dd1e31bb4d2b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 7 Mar 2014 18:21:35 +0100 Subject: [PATCH] nnimap respool fix * nnimap.el (nnimap-request-accept-article): Make respooling to nnimap groups work again. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/nnimap.el | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6052ca34d78..cdf22ef256a 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2014-03-07 Lars Ingebrigtsen + + * nnimap.el (nnimap-request-accept-article): Make respooling to nnimap + groups work again. + 2014-03-07 George McNinch (tiny change) * nnir.el (nnir-run-namazu): Parse namazu results that are larger than diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el index 2dcdcd0a391..2fc2dd6af79 100644 --- a/lisp/gnus/nnimap.el +++ b/lisp/gnus/nnimap.el @@ -1099,6 +1099,14 @@ If LIMIT, first try to limit the search to the N last articles." (nnimap-wait-for-response sequence)))))) (deffoo nnimap-request-accept-article (group &optional server last) + (unless group + ;; We're respooling. Find out where mail splitting would place + ;; this article. + (setq group + (caar + (nnmail-article-group + `(lambda (group) + (nnml-active-number group ,server)))))) (setq group (nnimap-decode-gnus-group group)) (when (nnimap-change-group nil server) (nnmail-check-syntax) -- 2.11.4.GIT