[Emacs-diffs] feature/gnus-select2 a9cb4e9 13/32: Use fetch-old-headers group parameter in nnselect

[Andrew G Cohen]

branch: feature/gnus-select2
commit a9cb4e9d81dfc70f32dcbd241e8435e4ffa78d30
Author: Andrew G Cohen <address@hidden>
Commit: Andrew G Cohen <address@hidden>

    Use fetch-old-headers group parameter in nnselect
    
    * lisp/gnus/nnselect.el (nnselect-retrieve-headers): Use
    gnus-fetch-old-headers parameter for original article group.
---
 lisp/gnus/nnselect.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 296ff62..fbe395c 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -235,6 +235,11 @@ If this variable is nil, or if the provided function 
returns nil,
       (pcase-dolist (`(,artgroup ,artids) gartids)
        (let ((artlist (sort (mapcar 'cdr artids) '<))
              (gnus-override-method (gnus-find-method-for-group artgroup))
+             (fetch-old
+              (or
+               (car-safe
+                (gnus-group-find-parameter artgroup 'gnus-fetch-old-headers t))
+               fetch-old))
              parsefunc)
          (erase-buffer)
          (pcase (setq gnus-headers-retrieved-by