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.

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 296ff62f2077adea0e27796166c3b85dc284554e..fbe395c8c8f6438d92a60a645c6a66ad7f343543 100644 (file)
--- 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