From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Fri, 4 Mar 2022 08:29:50 +0000 (+0800)
Subject: Fix bug in nnselect fetching new articles in a thread
X-Git-Tag: emacs-29.0.90~1931^2~1071
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90040f0e9f0d2a8fd2a8b1bc7904bb1db05470b0;p=emacs.git

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

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index c880d79840f..586dec65af8 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)))