1 files changed, 5 insertions, 0 deletions

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