emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] Fix bug in nnselect fetching new articles in a thread


From: Andrew Cohen
Subject: [PATCH] Fix bug in nnselect fetching new articles in a thread
Date: Wed, 16 Mar 2022 11:52:10 +0800
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux)

Thanks to Eli and the GNU copyright staff, my copyright issues have now
been solved. Eli has instructed me to send all patches to the list prior
to pushing to the repository, so I have a fair number of small changes
in the pipeline. This is the first:


* 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 @@ nnselect-request-thread
              (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)))
-- 
2.34.1.575.g55b058a8bb


-- 
Andrew Cohen




reply via email to

[Prev in Thread] Current Thread [Next in Thread]