From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 9 Oct 2019 20:46:05 +0000 (+0200)
Subject: Fix nnimap tick/readedness thinko introduced some weeks back
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~19^2~1567
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=4d6c1260eaef47e2da3f9842d035cdad2a967601;p=emacs.git

Fix nnimap tick/readedness thinko introduced some weeks back

* lisp/gnus/nnimap.el (nnimap-request-set-mark): Fix thinko in the
tick/read change: Unticking a message shouldn't make it unread,
but ticking it should make it read.
---

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index d4681e2b436..1ec5522831d 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1189,11 +1189,11 @@ If LIMIT, first try to limit the search to the N last articles."
 	;; response.  If they're successful, they're successful.
 	(dolist (action actions)
 	  (cl-destructuring-bind (range action marks) action
-	    ;; If we add/remove a tick mark, then do the same with the
-	    ;; readedness mark on the IMAP server.  Other IMAP clients
-	    ;; can have marked messages without having them read, but
-	    ;; Gnus can't.
-	    (when (memq 'tick marks)
+	    ;; If we add a tick mark, then also mark the message as
+	    ;; read.  Other IMAP clients can have marked messages
+	    ;; without having them read, but Gnus can't.
+	    (when (and (memq 'tick marks)
+		       (eq action 'add))
 	      (push 'read marks))
 	    (let ((flags (nnimap-marks-to-flags marks)))
 	      (when flags