diff options
| author | Andrew G Cohen | 2019-11-03 10:51:56 +0800 |
|---|---|---|
| committer | Andrew G Cohen | 2019-11-03 16:37:02 +0800 |
| commit | 924a4201d24c10c48db920815ebf98dfaadc1e85 (patch) | |
| tree | 5b98c2b59ed16f5a5ad91a85d918d9a1d869d567 | |
| parent | e841a206f02bcab97d1fd945548533e374b946c6 (diff) | |
| download | emacs-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.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, | |||
| 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) |