master 8af6b01: Use gnus-extra-headers in nnselect header parsing

[Andrew G Cohen]

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