diff options
author | Andrew G Cohen <cohen@andy.bu.edu> | 2022-03-04 16:29:50 +0800 |
---|---|---|
committer | Andrew G Cohen <cohen@andy.bu.edu> | 2022-03-17 19:19:39 +0800 |
commit | 90040f0e9f0d2a8fd2a8b1bc7904bb1db05470b0 (patch) | |
tree | 81e3490941f035cf1a150d813cea9a02dd815a9b | |
parent | da0d598190c3337c4acb2adb7435b756c655af87 (diff) | |
download | emacs-90040f0e9f0d2a8fd2a8b1bc7904bb1db05470b0.tar.gz |
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.
-rw-r--r-- | lisp/gnus/nnselect.el | 11 |
1 files 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))) |