mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Use gnus-extra-headers in nnselect header parsing

Browse source 
* lisp/gnus/nnselect.el (nnselect-retrieve-headers): Bind
nnmail-extra-headers to gnus-extra-headers before parsing retrieved
headers.
This commit is contained in:
Andrew G Cohen 2020-09-23 08:25:56 +08:00
parent 44bb59f79e
commit 8af6b01d10
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/gnus/nnselect.el
View file

@ -328,11 +328,12 @@ If this variable is nil, or if the provided function returns nil,
(nnheader-parse-nov)) (nnheader-parse-nov))
(forward-line 1))) (forward-line 1)))
('headers ('headers
(goto-char (point-min)) (let ((nnmail-extra-headers gnus-extra-headers))
(while (not (eobp)) (goto-char (point-min))
(nnselect-add-novitem (while (not (eobp))
(nnheader-parse-head)) (nnselect-add-novitem
(forward-line 1))) (nnheader-parse-head))
(forward-line 1))))
((pred listp) ((pred listp)
(dolist (novitem gnus-headers-retrieved-by) (dolist (novitem gnus-headers-retrieved-by)
(nnselect-add-novitem novitem))) (nnselect-add-novitem novitem)))