From 12df48511c85ae8f51990d79bf939e5111d0494c Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Thu, 31 Oct 2019 15:36:19 +0800 Subject: [PATCH] Update the gnus active list for nnselect groups * lisp/gnus/nnselect.el (nnselect-request-group-scan): Set the active range when scanning for changes. --- lisp/gnus/nnselect.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el index 2d41179545e..422d78650be 100644 --- a/lisp/gnus/nnselect.el +++ b/lisp/gnus/nnselect.el @@ -664,12 +664,14 @@ If this variable is nil, or if the provided function returns nil, (deffoo nnselect-request-group-scan (group &optional _server _info) - (let ((group (nnselect-add-prefix group))) + (let* ((group (nnselect-add-prefix group)) + (artlist (nnselect-run + (gnus-group-get-parameter group 'nnselect-specs t)))) + (gnus-set-active group (cons 1 (nnselect-artlist-length + artlist))) (gnus-group-set-parameter group 'nnselect-artlist - (nnselect-compress-artlist (nnselect-run - (gnus-group-get-parameter group 'nnselect-specs t)))) - )) + (nnselect-compress-artlist artlist)))) ;; Add any undefined required backend functions -- 2.39.5