From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 13 Feb 2016 07:20:55 +0000 (+1100)
Subject: Make "unseen" tracking work again in Gnus
X-Git-Tag: emacs-26.0.90~2573
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca5f9c97e6c78c1816ac4422736cf2bd7fdbb80b;p=emacs.git

Make "unseen" tracking work again in Gnus

* lisp/gnus/gnus-sum.el (gnus-update-marks): Make "unseen"
tracking work again.
---

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