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.

1 files changed, 5 insertions, 5 deletions

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