From 8af6b01d10308d7d90d6cc87dc9416afa654ff3b Mon Sep 17 00:00:00 2001 From: Andrew G Cohen Date: Wed, 23 Sep 2020 08:25:56 +0800 Subject: [PATCH] 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 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))) -- 2.39.2