[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/gnus-select2 12df485 3/4: Update the gnus active list for nnsele
From: |
Andrew G Cohen |
Subject: |
feature/gnus-select2 12df485 3/4: Update the gnus active list for nnselect groups |
Date: |
Thu, 31 Oct 2019 06:59:29 -0400 (EDT) |
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