From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 7 Mar 2014 17:21:35 +0000 (+0100)
Subject: nnimap respool fix
X-Git-Tag: emacs-24.3.90~252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d67d60a2eab5f7f1f9b1d31cd1c7dd1e31bb4d2b;p=emacs.git

nnimap respool fix

* nnimap.el (nnimap-request-accept-article): Make respooling to nnimap
groups work again.
---

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  <larsi@gnus.org>
+
+	* nnimap.el (nnimap-request-accept-article): Make respooling to nnimap
+	groups work again.
+
 2014-03-07  George McNinch  <gmcninch@gmail.com>  (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)