From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Wed, 29 Mar 2023 02:23:06 +0000 (+0800)
Subject: Compute gnus/nnselect read articles from summary variables
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=859b94e338639e1838e607be5784dc65ad455671;p=emacs.git

Compute gnus/nnselect read articles from summary variables

* lisp/gnus/nnselect.el (nnselect-push-info): The current list of read
articles should be computed from the summary buffer local variables,
not from the group info.
---

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 42247574cc7..4680cf23e5e 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -884,13 +884,14 @@ article came from is also searched."
 
 
 
-(defun nnselect-push-info (group)
+(defun nnselect-push-info (_group)
   "Copy mark-lists from GROUP to the originating groups."
   (let ((select-unreads (numbers-by-group gnus-newsgroup-unreads))
-	(select-reads (numbers-by-group
-		       (gnus-info-read (gnus-get-info group)) 'range))
-	(select-unseen (numbers-by-group gnus-newsgroup-unseen))
-	(gnus-newsgroup-active nil) mark-list)
+        (select-reads (numbers-by-group
+                       (gnus-sorted-difference gnus-newsgroup-articles
+                                               gnus-newsgroup-unreads)))
+        (select-unseen (numbers-by-group gnus-newsgroup-unseen))
+        (gnus-newsgroup-active nil) mark-list)
     ;; collect the set of marked article lists categorized by
     ;; originating groups
     (pcase-dolist (`(,mark . ,type) gnus-article-mark-lists)