From: Andrew G Cohen <cohen@andy.bu.edu>
Date: Wed, 23 Sep 2020 00:25:56 +0000 (+0800)
Subject: Use gnus-extra-headers in nnselect header parsing
X-Git-Tag: emacs-28.0.90~5929
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8af6b01d10308d7d90d6cc87dc9416afa654ff3b;p=emacs.git

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

diff --git a/lisp/gnus/nnselect.el b/lisp/gnus/nnselect.el
index 94dd93b354f..9bff9fdd0c0 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)))