From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 14 Mar 2016 19:21:02 +0000 (+0100)
Subject: Don't use MOVE on Dovecot
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/8ed27bdf88cab134c26f3609c4d11c574f74705c

Don't use MOVE on Dovecot

* lisp/gnus/nnimap.el (nnimap-request-move-article): Don't use
MOVE on Dovecot, since it's broken in many versions.
(nnimap-quirks): Mark MOVE on Dovecot as non-working.
---

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index fc9304f672..90de168286 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -157,7 +157,8 @@ textual parts.")
     (forward "gnus-forward")))
 
 (defvar nnimap-quirks
-  '(("QRESYNC" "Zimbra" "QRESYNC ")))
+  '(("QRESYNC" "Zimbra" "QRESYNC ")
+    ("MOVE" "Dovecot" nil)))
 
 (defvar nnimap-inhibit-logging nil)
 
@@ -929,7 +930,8 @@ textual parts.")
       (let ((message-id (message-field-value "message-id")))
 	(if internal-move-group
             (with-current-buffer (nnimap-buffer)
-              (let* ((can-move (nnimap-capability "MOVE"))
+              (let* ((can-move (and (nnimap-capability "MOVE")
+				    (equal (nnimap-quirk "MOVE") "MOVE")))
 		     (command (if can-move
 				  "UID MOVE %d %S"
 				"UID COPY %d %S"))