[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/gnus-select2 924a420: Allow gnus backends to return a list of he
From: |
Andrew G Cohen |
Subject: |
feature/gnus-select2 924a420: Allow gnus backends to return a list of headers |
Date: |
Sun, 3 Nov 2019 03:37:59 -0500 (EST) |
branch: feature/gnus-select2
commit 924a4201d24c10c48db920815ebf98dfaadc1e85
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>
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 fc2d98b..7d57ddc 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- feature/gnus-select2 924a420: Allow gnus backends to return a list of headers,
Andrew G Cohen <=