[Emacs-diffs] trunk r116698: nnimap respool fix

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 116698
revision-id: address@hidden
parent: address@hidden
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2014-03-07 18:21:35 +0100
message:
  nnimap respool fix
  
  * nnimap.el (nnimap-request-accept-article): Make respooling to nnimap
  groups work again.
modified:
  lisp/gnus/ChangeLog            changelog-20091113204419-o5vbwnq5f7feedwu-1433
  lisp/gnus/nnimap.el            nnimap.el-20091113204419-o5vbwnq5f7feedwu-1978

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2014-03-07 16:58:25 +0000
+++ b/lisp/gnus/ChangeLog       2014-03-07 17:21:35 +0000
@@ -1,3 +1,8 @@
+2014-03-07  Lars Ingebrigtsen  <address@hidden>
+
+       * nnimap.el (nnimap-request-accept-article): Make respooling to nnimap
+       groups work again.
+
 2014-03-07  George McNinch  <address@hidden>  (tiny change)
 
        * nnir.el (nnir-run-namazu): Parse namazu results that are larger than

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2014-02-07 03:23:46 +0000
+++ b/lisp/gnus/nnimap.el       2014-03-07 17:21:35 +0000
@@ -1099,6 +1099,14 @@
          (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)