feature/gnus-select2 12df485 3/4: Update the gnus active list for nnselect groups

[Andrew G Cohen]

branch: feature/gnus-select2
commit 12df48511c85ae8f51990d79bf939e5111d0494c
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>

    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 2d41179..422d786 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