When moving articles between IMAP servers, delete from the correct server

(nnimap-request-move-article): Delete the message from the correct IMAP
server.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d631b8b..440b9e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,8 @@
 
        * nnimap.el (nnimap-log-command): Add the IMAP address to the log
        buffer.  Suggested by Herbert Valerio Riedel.
+       (nnimap-request-move-article): Delete the message from the correct IMAP
+       server.
 
 2012-02-19  Vida Gábor  <vidagabor@gmail.com>  (tiny change)
 

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index b02edf5..6cbd83c 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -868,6 +868,7 @@ textual parts.")
          ;; Move the article to a different method.
          (let ((result (eval accept-form)))
            (when result
+             (nnimap-possibly-change-group group server)
              (nnimap-delete-article article)
              result)))))))