]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix bug in nnselect fetching new articles in a thread
authorAndrew G Cohen <cohen@andy.bu.edu>
Fri, 4 Mar 2022 08:29:50 +0000 (16:29 +0800)
committerAndrew G Cohen <cohen@andy.bu.edu>
Thu, 17 Mar 2022 11:19:39 +0000 (19:19 +0800)
* lisp/gnus/nnselect.el (nnselect-request-thread): Ignore the
Retrieval Status Value in comparing whether articles are the same.

lisp/gnus/nnselect.el

index c880d79840f250cde8f8a408f63c8fd5b65e7101..586dec65af84eb7cd3cdf65c82711d7b321881c8 100644 (file)
@@ -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)))