diff options
author | Andrew G Cohen <cohen@andy.bu.edu> | 2019-11-03 10:51:56 +0800 |
---|---|---|
committer | Andrew G Cohen <cohen@andy.bu.edu> | 2019-11-03 16:37:02 +0800 |
commit | 924a4201d24c10c48db920815ebf98dfaadc1e85 (patch) | |
tree | 5b98c2b59ed16f5a5ad91a85d918d9a1d869d567 | |
parent | e841a206f02bcab97d1fd945548533e374b946c6 (diff) | |
download | emacs-feature/gnus-select2.tar.gz |
Allow gnus backends to return a list of headersfeature/gnus-select2
* lisp/gnus/nnselect.el (nnselect-add-novitem): New macro.
(nnselect-retrieve-headers): Allow backends to return headers as a
list. Return this list rather than re-populating the server buffer
with 'nov format headers.
* lisp/gnus/gnus-sum.el (gnus-fetch-headers): Allow backends to return
headers as a list. Make sure the dependencies structure is updated.
-rw-r--r-- | lisp/gnus/nnselect.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el index fc2d98bca21..7d57ddc9a56 100644 --- a/lisp/gnus/nnselect.el +++ b/lisp/gnus/nnselect.el @@ -328,12 +328,11 @@ If this variable is nil, or if the provided function returns nil, (_ (error "Unknown header type %s while requesting articles \ of group %s" gnus-headers-retrieved-by artgroup))))) (setq headers - (sort headers - (lambda (x y) - (< (mail-header-number x) (mail-header-number y))))) - (erase-buffer) - (mapc 'nnheader-insert-nov headers) - 'nov))))) + (sort + headers + (lambda (x y) + (< (mail-header-number x) (mail-header-number y)))))))))) + (deffoo nnselect-request-article (article &optional _group server to-buffer) (let* ((gnus-override-method nil) |