[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8ed27bd: Don't use MOVE on Dovecot
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 8ed27bd: Don't use MOVE on Dovecot |
Date: |
Mon, 14 Mar 2016 19:21:27 +0000 |
branch: master
commit 8ed27bdf88cab134c26f3609c4d11c574f74705c
Author: Lars Magne Ingebrigtsen <address@hidden>
Commit: Lars Magne Ingebrigtsen <address@hidden>
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.
---
lisp/gnus/nnimap.el | 6 ++++--
1 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index fc9304f..90de168 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"))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8ed27bd: Don't use MOVE on Dovecot,
Lars Ingebrigtsen <=