mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Compute gnus/nnselect read articles from summary variables

Browse source 
* 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.
This commit is contained in:
Andrew G Cohen 2023-03-29 10:23:06 +08:00
parent a371be5257
commit 859b94e338
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/nnselect.el
View file

@ -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." "Copy mark-lists from GROUP to the originating groups."
(let ((select-unreads (numbers-by-group gnus-newsgroup-unreads)) (let ((select-unreads (numbers-by-group gnus-newsgroup-unreads))
(select-reads (numbers-by-group (select-reads (numbers-by-group
(gnus-info-read (gnus-get-info group)) 'range)) (gnus-sorted-difference gnus-newsgroup-articles
(select-unseen (numbers-by-group gnus-newsgroup-unseen)) gnus-newsgroup-unreads)))
(gnus-newsgroup-active nil) mark-list) (select-unseen (numbers-by-group gnus-newsgroup-unseen))
(gnus-newsgroup-active nil) mark-list)
;; collect the set of marked article lists categorized by ;; collect the set of marked article lists categorized by
;; originating groups ;; originating groups
(pcase-dolist (`(,mark . ,type) gnus-article-mark-lists) (pcase-dolist (`(,mark . ,type) gnus-article-mark-lists)