[Emacs-diffs] master 4d6c126: Fix nnimap tick/readedness thinko introduced some weeks back

[Lars Ingebrigtsen]

branch: master
commit 4d6c1260eaef47e2da3f9842d035cdad2a967601
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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.
---
 lisp/gnus/nnimap.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index d4681e2..1ec5522 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