From 924a4201d24c10c48db920815ebf98dfaadc1e85 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Sun, 3 Nov 2019 10:51:56 +0800 Subject: Allow gnus backends to return a list of headers * 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. --- lisp/gnus/nnselect.el | 11 +++++------ 1 file 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) -- cgit v1.2.1