From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Tue, 2 May 2017 02:33:59 +0000 (+0800)
Subject: Use fetch-old-headers group parameter in nnselect
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f67fadd86af11f05bf00c7ee650d838912ceb23;p=emacs.git

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