Fix article moving from nnimap to other servers.

When moving an article from nnimap, request the article first so the
accepting form has an article to accept.  Reported by Dan Christensen.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 278d4ea..e93300e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,9 @@
        (nnimap-request-delete-group): Implement group deletion.
        (nnimap-transform-headers): Return the size of the entire message in
        the Bytes header, not just the size of the first part.
+       (nnimap-request-move-article): When moving an article from nnimap,
+       request the article first so the accepting form has an article to
+       accept.  Reported by Dan Christensen.
 
 2010-09-20  David Edmondson  <dme@dme.org>  (tiny change)
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index f9eaf17..cc6f4f8 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -472,10 +472,11 @@ textual parts.")
                    (nnimap-find-article-by-message-id
                     internal-move-group message-id))))
        (with-temp-buffer
-         (let ((result (eval accept-form)))
-           (when result
-             (nnimap-delete-article article)
-             result)))))))
+         (when (nnimap-request-article article group server (current-buffer))
+           (let ((result (eval accept-form)))
+             (when result
+               (nnimap-delete-article article)
+               result))))))))
 
 (deffoo nnimap-request-expire-articles (articles group &optional server force)
   (cond