From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Thu, 31 Oct 2019 07:36:19 +0000 (+0800)
Subject: Update the gnus active list for nnselect groups
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12df48511c85ae8f51990d79bf939e5111d0494c;p=emacs.git

Update the gnus active list for nnselect groups

* lisp/gnus/nnselect.el (nnselect-request-group-scan): Set the active
  range when scanning for changes.
---

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