[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 90040f0e9f 1/2: Fix bug in nnselect fetching new articles in a th
From: |
Andrew G Cohen |
Subject: |
master 90040f0e9f 1/2: Fix bug in nnselect fetching new articles in a thread |
Date: |
Thu, 17 Mar 2022 07:25:43 -0400 (EDT) |
branch: master
commit 90040f0e9f0d2a8fd2a8b1bc7904bb1db05470b0
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>
Fix bug in nnselect fetching new articles in a thread
* lisp/gnus/nnselect.el (nnselect-request-thread): Ignore the
Retrieval Status Value in comparing whether articles are the same.
---
lisp/gnus/nnselect.el | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index c880d79840..586dec65af 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -652,8 +652,15 @@ If this variable is nil, or if the provided function
returns nil,
(lambda (article)
(if
(setq seq
- (cl-position article
- gnus-newsgroup-selection :test 'equal))
+ (cl-position
+ article
+ gnus-newsgroup-selection
+ :test
+ (lambda (x y)
+ (and (equal (nnselect-artitem-group x)
+ (nnselect-artitem-group y))
+ (eql (nnselect-artitem-number x)
+ (nnselect-artitem-number y))))))
(push (1+ seq) old-arts)
(setq gnus-newsgroup-selection
(vconcat gnus-newsgroup-selection (vector article)))