diff options
| -rw-r--r-- | lisp/gnus/nnimap.el | 10 |
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 |