Handle different IMAP server responses to COPY and MOVE

* lisp/gnus/nnimap.el (nnimap-request-move-article): Need to examine
different parts of the result.

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index be8ad9a67232d7c8ce1c8a9b05b89c5d8722b676..507e12a55e7ba1c9dbd1ee7800121cefcfe5f697 100644 (file)
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -986,7 +986,10 @@ textual parts.")
                 (when (and (car result) (not can-move))
                   (nnimap-delete-article article))
                 (cons internal-move-group
-                      (or (nnimap-find-uid-response "COPYUID" (caddr result))
+                      (or (nnimap-find-uid-response
+                          "COPYUID"
+                          ;; Server gives different responses for MOVE and COPY.
+                          (if can-move (caddr result) (cadr result)))
                           (nnimap-find-article-by-message-id
                            internal-move-group server message-id
                            nnimap-request-articles-find-limit)))))