emacs-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]