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 94dd93b354f3af9e639273a5e0a4d9590bf63a8a..9bff9fdd0c0b258de0273de70f912a33b1b9c447 100644 (file)
--- 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)))