procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make Gnus cache work with nnselect

Browse source 
* lisp/gnus/gnus-cache.el (gnus-cache-possibly-enter-article)
(gnus-cache-possibly-remove-articles)
(gnus-cache-possibly-remove-article): Use originating article info for
nnselect groups.
This commit is contained in:
Andrew G Cohen 2020-09-09 17:01:44 +08:00
parent c50643cebd
commit 7bd6dd065b
1 changed files with 22 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/gnus/gnus-cache.el
View file

@ -93,6 +93,8 @@ it's not cached."
(autoload 'nnml-generate-nov-databases-directory "nnml")
(autoload 'nnvirtual-find-group-art "nnvirtual")
(autoload 'nnselect-article-group "nnselect")
(autoload 'nnselect-article-number "nnselect")
@ -158,8 +160,12 @@ it's not cached."
(file-name-coding-system nnmail-pathname-coding-system))
;; If this is a virtual group, we find the real group.
(when (gnus-virtual-group-p group)
(let ((result (nnvirtual-find-group-art
(gnus-group-real-name group) article)))
(let ((result (if (gnus-nnselect-group-p group)
(with-current-buffer gnus-summary-buffer
(cons (nnselect-article-group article)
(nnselect-article-number article)))
(nnvirtual-find-group-art
(gnus-group-real-name group) article))))
(setq group (car result)
number (cdr result))))
(when (and number
@ -232,8 +238,14 @@ it's not cached."
(let ((arts gnus-cache-removable-articles)
ga)
(while arts
(when (setq ga (nnvirtual-find-group-art
(gnus-group-real-name gnus-newsgroup-name) (pop arts)))
(when (setq ga
(if (gnus-nnselect-group-p gnus-newsgroup-name)
(with-current-buffer gnus-summary-buffer
(let ((article (pop arts)))
(cons (nnselect-article-group article)
(nnselect-article-number article))))
(nnvirtual-find-group-art
(gnus-group-real-name gnus-newsgroup-name) (pop arts))))
(let ((gnus-cache-removable-articles (list (cdr ga)))
(gnus-newsgroup-name (car ga)))
(gnus-cache-possibly-remove-articles-1)))))
@ -467,8 +479,12 @@ Returns the list of articles removed."
(file-name-coding-system nnmail-pathname-coding-system))
;; If this is a virtual group, we find the real group.
(when (gnus-virtual-group-p group)
(let ((result (nnvirtual-find-group-art
(gnus-group-real-name group) article)))
(let ((result (if (gnus-nnselect-group-p group)
(with-current-buffer gnus-summary-buffer
(cons (nnselect-article-group article)
(nnselect-article-number article)))
(nnvirtual-find-group-art
(gnus-group-real-name group) article))))
(setq group (car result)
number (cdr result))))
(setq file (gnus-cache-file-name group number))