diff options
| author | Andrew G Cohen <cohen@andy.bu.edu> | 2022-03-04 16:44:40 +0800 |
|---|---|---|
| committer | Andrew G Cohen <cohen@andy.bu.edu> | 2022-03-17 19:19:39 +0800 |
| commit | 7fef2e04b219f25c64db0e83ec6f4ae707fb7f83 (patch) | |
| tree | 35f735c978bb0b103edb3eed2626fb9469b23f34 | |
| parent | 90040f0e9f0d2a8fd2a8b1bc7904bb1db05470b0 (diff) | |
| download | emacs-7fef2e04b219f25c64db0e83ec6f4ae707fb7f83.tar.gz | |
Improve propagation of gnus/nnselect group info
* lisp/gnus/nnselect.el (nnselect-push-info): Speed up pushing the
nnselect info back to the originating groups.
| -rw-r--r-- | lisp/gnus/nnselect.el | 30 |
1 files changed, 20 insertions, 10 deletions
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el index 586dec65af8..d6289f13395 100644 --- a/lisp/gnus/nnselect.el +++ b/lisp/gnus/nnselect.el @@ -878,6 +878,9 @@ article came from is also searched." ;; When the backend can store marks we collect any ;; changes. Unlike a normal group the mark lists only ;; include marks for articles we retrieved. + (when (and (gnus-check-backend-function + 'request-set-mark gnus-newsgroup-name) + (not (gnus-article-unpropagatable-p type))) (let* ((old (range-list-intersection artlist (alist-get type (gnus-info-marks group-info)))) @@ -889,7 +892,7 @@ article came from is also searched." ;; This shouldn't happen, but is a sanity check. (setq del (range-intersection (gnus-active artgroup) del)) - (push (list del 'del (list type)) delta-marks))) + (push (list del 'del (list type)) delta-marks)))) ;; Marked sets are of mark-type 'tuple, 'list, or ;; 'range. We merge the lists with what is already in @@ -914,12 +917,15 @@ article came from is also searched." (setq list (cdr all)))) ;; now merge with the original list and sort just to ;; make sure - (setq list - (sort (map-merge - 'alist list - (alist-get type (gnus-info-marks group-info))) - (lambda (elt1 elt2) - (< (car elt1) (car elt2)))))) + (setq + list (sort + (map-merge + 'alist list + (delq nil + (mapcar + (lambda (x) (unless (memq (car x) artlist) x)) + (alist-get type (gnus-info-marks group-info))))) + 'car-less-than-car))) (t (setq list (range-compress-list @@ -963,9 +969,13 @@ article came from is also searched." (cdr (assoc artgroup select-reads))) (sort (cdr (assoc artgroup select-unreads)) #'<)))) (gnus-get-unread-articles-in-group - group-info (gnus-active artgroup) t) - (gnus-group-update-group artgroup t t))))))) - + group-info (gnus-active artgroup) t)) + (gnus-group-update-group + artgroup t + (equal group-info + (setq group-info (copy-sequence (gnus-get-info artgroup)) + group-info + (delq (gnus-info-params group-info) group-info))))))))) (declare-function gnus-registry-get-id-key "gnus-registry" (id key)) |