From 2f67fadd86af11f05bf00c7ee650d838912ceb23 Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Tue, 2 May 2017 10:33:59 +0800 Subject: [PATCH] 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 296ff62f207..fbe395c8c8f 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 -- 2.39.5