mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Fix nnimap tick/readedness thinko introduced some weeks back

Browse source 
* 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.
This commit is contained in:
Lars Ingebrigtsen 2019-10-09 22:46:05 +02:00
parent 9c81149ae9
commit 4d6c1260ea
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/gnus/nnimap.el
View file

@ -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