From ca5f9c97e6c78c1816ac4422736cf2bd7fdbb80b Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 13 Feb 2016 18:20:55 +1100 Subject: [PATCH] Make "unseen" tracking work again in Gnus * lisp/gnus/gnus-sum.el (gnus-update-marks): Make "unseen" tracking work again. --- lisp/gnus/gnus-sum.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index adb9b02c3c7..d3e5ece63ae 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -6036,6 +6036,11 @@ If SELECT-ARTICLES, only select those articles from GROUP." (setq arts (cdr arts))) (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) (setq list (gnus-compress-sequence (set symbol (sort list '<)) t))) -- 2.39.2