[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 8af6b01: Use gnus-extra-headers in nnselect header parsing
From: |
Andrew G Cohen |
Subject: |
master 8af6b01: Use gnus-extra-headers in nnselect header parsing |
Date: |
Tue, 22 Sep 2020 20:28:22 -0400 (EDT) |
branch: master
commit 8af6b01d10308d7d90d6cc87dc9416afa654ff3b
Author: Andrew G Cohen <cohen@andy.bu.edu>
Commit: Andrew G Cohen <cohen@andy.bu.edu>
Use gnus-extra-headers in nnselect header parsing
* lisp/gnus/nnselect.el (nnselect-retrieve-headers): Bind
nnmail-extra-headers to gnus-extra-headers before parsing retrieved
headers.
---
lisp/gnus/nnselect.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 94dd93b..9bff9fd 100644
--- a/lisp/gnus/nnselect.el
+++ b/lisp/gnus/nnselect.el
@@ -328,11 +328,12 @@ If this variable is nil, or if the provided function
returns nil,
(nnheader-parse-nov))
(forward-line 1)))
('headers
- (goto-char (point-min))
- (while (not (eobp))
- (nnselect-add-novitem
- (nnheader-parse-head))
- (forward-line 1)))
+ (let ((nnmail-extra-headers gnus-extra-headers))
+ (goto-char (point-min))
+ (while (not (eobp))
+ (nnselect-add-novitem
+ (nnheader-parse-head))
+ (forward-line 1))))
((pred listp)
(dolist (novitem gnus-headers-retrieved-by)
(nnselect-add-novitem novitem)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8af6b01: Use gnus-extra-headers in nnselect header parsing,
Andrew G Cohen <=