master 90040f0e9f 1/2: Fix bug in nnselect fetching new articles in a thread

[Andrew G Cohen]

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