procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak updating of readedness marks on the IMAP server

Browse source 
* lisp/gnus/nnimap.el (nnimap-request-set-mark): Ensure that
ticking/unticking also toggles readedness on the IMAP server
(bug#22590).
This commit is contained in:
Lars Ingebrigtsen 2019-09-27 01:14:01 +02:00
parent 7e6fc3842e
commit ff8a72fbe0
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/nnimap.el
View file

@ -1163,6 +1163,12 @@ 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)
(push 'read marks))
(let ((flags (nnimap-marks-to-flags marks)))
(when flags
(setq sequence (nnimap-send-command
@ -1492,8 +1498,9 @@ If LIMIT, first try to limit the search to the N last articles."
(defun nnimap-update-info (info marks)
(cl-destructuring-bind (existing flags high low uidnext start-article
permanent-flags uidvalidity
vanished highestmodseq) marks
permanent-flags uidvalidity
vanished highestmodseq)
marks
(cond
;; Ignore groups with no UIDNEXT/marks. This happens for
;; completely empty groups.