diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-09 22:46:05 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-09 22:46:05 +0200 |
| commit | 4d6c1260eaef47e2da3f9842d035cdad2a967601 (patch) | |
| tree | a7dc5f6b3f6343aae7d4c15c1599ace0e32c913a /lisp/gnus/nnimap.el | |
| parent | 9c81149ae9165b0f017d60d141221b340879baef (diff) | |
| download | emacs-4d6c1260eaef47e2da3f9842d035cdad2a967601.tar.gz emacs-4d6c1260eaef47e2da3f9842d035cdad2a967601.tar.bz2 emacs-4d6c1260eaef47e2da3f9842d035cdad2a967601.zip | |
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.
Diffstat (limited to 'lisp/gnus/nnimap.el')
| -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 |