[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] feature/gnus-select 2f67fad: Use fetch-old-headers group p
From: |
Andrew G Cohen |
Subject: |
[Emacs-diffs] feature/gnus-select 2f67fad: Use fetch-old-headers group parameter in nnselect |
Date: |
Mon, 1 May 2017 22:35:36 -0400 (EDT) |
branch: feature/gnus-select
commit 2f67fadd86af11f05bf00c7ee650d838912ceb23
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] feature/gnus-select 2f67fad: Use fetch-old-headers group parameter in nnselect,
Andrew G Cohen <=