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 2d41179545ef906765e6944f60a97b8b8eb172af..422d78650be91f506522ba76acb576c14ba79c08 100644 (file)
--- 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