From: Eric Abrahamsen <eric@ericabrahamsen.net>
Date: Wed, 2 Sep 2020 16:07:35 +0000 (-0700)
Subject: Handle different IMAP server responses to COPY and MOVE
X-Git-Tag: emacs-28.0.90~6281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=410b16f92d61196af54e91c9de1046246f44b28d;p=emacs.git

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 be8ad9a6723..507e12a55e7 100644
--- 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)))))