From 90040f0e9f0d2a8fd2a8b1bc7904bb1db05470b0 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Fri, 4 Mar 2022 16:29:50 +0800 Subject: [PATCH] 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 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))) -- 2.39.2