mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

Make "unseen" tracking work again in Gnus

Browse Source 
* lisp/gnus/gnus-sum.el (gnus-update-marks): Make "unseen"
tracking work again.
This commit is contained in:
Lars Ingebrigtsen 2016-02-13 18:20:55 +11:00
parent e8186ed0f0
commit ca5f9c97e6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/gnus-sum.el
View File

@ -6036,6 +6036,11 @@ If SELECT-ARTICLES, only select those articles from GROUP."
(setq arts (cdr arts))) (setq arts (cdr arts)))
(setq list (cdr all))))) (setq list (cdr all)))))
;; When exiting the group, everything that's previously been
;; unseen is now seen.
(when (eq (cdr type) 'seen)
(setq list (gnus-range-add list gnus-newsgroup-unseen)))
(when (eq (gnus-article-mark-to-type (cdr type)) 'list) (when (eq (gnus-article-mark-to-type (cdr type)) 'list)
(setq list (gnus-compress-sequence (set symbol (sort list '<)) t))) (setq list (gnus-compress-sequence (set symbol (sort list '<)) t)))