aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAndrew G Cohen2019-11-03 10:51:56 +0800
committerAndrew G Cohen2019-11-03 16:37:02 +0800
commit924a4201d24c10c48db920815ebf98dfaadc1e85 (patch)
tree5b98c2b59ed16f5a5ad91a85d918d9a1d869d567
parente841a206f02bcab97d1fd945548533e374b946c6 (diff)
downloademacs-feature/gnus-select2.tar.gz
emacs-feature/gnus-select2.zip
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.el11
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,
328 (_ (error "Unknown header type %s while requesting articles \ 328 (_ (error "Unknown header type %s while requesting articles \
329 of group %s" gnus-headers-retrieved-by artgroup))))) 329 of group %s" gnus-headers-retrieved-by artgroup)))))
330 (setq headers 330 (setq headers
331 (sort headers 331 (sort
332 (lambda (x y) 332 headers
333 (< (mail-header-number x) (mail-header-number y))))) 333 (lambda (x y)
334 (erase-buffer) 334 (< (mail-header-number x) (mail-header-number y))))))))))
335 (mapc 'nnheader-insert-nov headers) 335
336 'nov)))))
337 336
338(deffoo nnselect-request-article (article &optional _group server to-buffer) 337(deffoo nnselect-request-article (article &optional _group server to-buffer)
339 (let* ((gnus-override-method nil) 338 (let* ((gnus-override-method nil)