]> git.eshelyaron.com Git - emacs.git/commitdiff
Use fetch-old-headers group parameter in nnselect
authorAndrew G Cohen <cohen@andy.bu.edu>
Tue, 2 May 2017 02:33:59 +0000 (10:33 +0800)
committerAndrew G Cohen <cohen@andy.bu.edu>
Tue, 2 May 2017 02:33:59 +0000 (10:33 +0800)
* lisp/gnus/nnselect.el (nnselect-retrieve-headers): Use
gnus-fetch-old-headers parameter for original article group.

lisp/gnus/nnselect.el

index 296ff62f2077adea0e27796166c3b85dc284554e..fbe395c8c8f6438d92a60a645c6a66ad7f343543 100644 (file)
@@ -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