[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select2 3444486 16/32: Fix pushing marks on n
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select2 3444486 16/32: Fix pushing marks on nnselect exit |
Date: |
Sun, 16 Dec 2018 06:54:03 -0500 (EST) |
branch: feature/gnus-select2
commit 344448609d43825e37d721264d3dc3a6aff8c16c
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>
Fix pushing marks on nnselect exit
* lisp/gnus/nnselect.el (nnselect-push-info): Deal with scoring.
Ensure that mark lists are properly compressed before saving. Add only
the group-specific articles to the `seen' lists.
---
lisp/gnus/nnselect.el | 34 +++++++++++++++++++++++++---------
1 file changed, 25 insertions(+), 9 deletions(-)
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 4497528..b8aa941 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -679,6 +679,7 @@ originating groups."
(select-reads (numbers-by-group
(gnus-uncompress-range
(gnus-info-read (gnus-get-info group)))))
+ (select-unseen (numbers-by-group gnus-newsgroup-unseen))
(gnus-newsgroup-active nil)
mark-list type-list)
(pcase-dolist (`(,mark . ,type) gnus-article-mark-lists)
@@ -705,18 +706,33 @@ originating groups."
artlist)
select-type)))
+ (when list
+ ;; Get rid of the entries of the articles that have the
+ ;; default score.
+ (when (and (eq type 'score)
+ gnus-save-score
+ list)
+ (let* ((arts list)
+ (prev (cons nil list))
+ (all prev))
+ (while arts
+ (if (or (not (consp (car arts)))
+ (= (cdar arts) gnus-summary-default-score))
+ (setcdr prev (cdr arts))
+ (setq prev arts))
+ (setq arts (cdr arts)))
+ (setq list (cdr all)))))
+
+ (when (or (eq (gnus-article-mark-to-type type) 'list)
+ (eq (gnus-article-mark-to-type type) 'range))
+ (setq list
+ (gnus-compress-sequence (sort list '<) t)))
+
;; When exiting the group, everything that's previously been
;; unseen is now seen.
(when (eq type 'seen)
- (setq list (gnus-range-add list gnus-newsgroup-unseen)))
-
- ;; (when (or (eq (gnus-article-mark-to-type type) 'list)
- ;; (eq (gnus-article-mark-to-type type) 'range))
- ;; (setq list (gnus-compress-sequence (sort list '<) t)))
-
- (when (eq (gnus-article-mark-to-type type) 'list)
- (setq list
- (gnus-compress-sequence (sort list '<) t)))
+ (setq list (gnus-range-add
+ list (cadr (assoc artgroup select-unseen)))))
(when (or list (eq type 'unexist))
(push (cons type list) newmarked))))
- [Emacs-diffs] feature/gnus-select2 b51a495 07/32: Restore article retrieval by message-id in nnselect, (continued)
- [Emacs-diffs] feature/gnus-select2 b51a495 07/32: Restore article retrieval by message-id in nnselect, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 8e7635b 05/32: Fix requesting sparse articles in gnus, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 5be0d2a 12/32: Disable nnselect-server-opened check, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 f43d8d8 23/32: * lisp/gnus/nnselect.el (nnselect-request-group): Don't close group., Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 c1c5b4b 08/32: Introduce summary-local variable gnus-newsgroup-selection, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 e5ea691 17/32: Use gnus-newsgroup-selection instead of nnselect-artlist, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 1388539 11/32: Improve nnselect-request-article, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 7df041f 10/32: Remove unnecessary check gnus-nnselect-group-p, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 c87252e 15/32: New gnus summary sorting functions on rsv, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 514f0cb 04/32: Temporary function to ease search group creation, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 3444486 16/32: Fix pushing marks on nnselect exit,
Andrew G Cohen <=
- [Emacs-diffs] feature/gnus-select2 fde0e40 21/32: Restore accidentally remove gnus-summary-make-search-group, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 d2e0389 19/32: Improve group-info handling in nnselect, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 6111aa1 09/32: Don't stomp on local variables in gnus-msg, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 c9c16c9 22/32: * lisp/gnus/nnselect.el (nnselect-server-opened): Just return t., Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 2174d0f 20/32: Improve nnselect-request-article, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 8ad88ac 24/32: * lisp/gnus/nnselect.el (nnselect-request-rename-group): Allow it., Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 73c0da2 27/32: Improve search and select group creation, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 fe5f3c2 32/32: Set gnus-newsgroup-selection in the summary buffer, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 5868104 30/32: Allow automatic scanning of nnselect groups, Andrew G Cohen, 2018/12/16
- [Emacs-diffs] feature/gnus-select2 0693d49 31/32: Remove nnselect-artlist variable in nnselect, Andrew G Cohen, 2018/12/16