Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

message.el: Fix part of bug#81035

Browse source 
* lisp/gnus/message.el (message-narrow-to-field)
(message-hide-headers): Syntax-propertize before narrowing.
This commit is contained in:
Stefan Monnier 2026-06-04 14:20:06 -04:00
parent 621239ae6a
commit bbe805e4b1
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/message.el
View file

@ -2217,6 +2217,8 @@ see `message-narrow-to-headers-or-head'."
(beginning-of-line) (beginning-of-line)
(while (looking-at "[ \t]") (while (looking-at "[ \t]")
(forward-line -1)) (forward-line -1))
;; `syntax-propertize' can't widen so make sure it won't need to (bug#81035).
(syntax-propertize (point))
(narrow-to-region (narrow-to-region
(point) (point)
(progn (progn
@ -8658,6 +8660,9 @@ From headers in the original article."
(save-excursion (save-excursion
(goto-char end-of-headers) (goto-char end-of-headers)
(insert-before-markers header)))))))) (insert-before-markers header))))))))
;; `syntax-propertize' can't widen so make sure it won't need to
;; (bug#81035).
(syntax-propertize end-of-headers)
(narrow-to-region end-of-headers (point-max))))) (narrow-to-region end-of-headers (point-max)))))
(defun message-hide-header-p (regexps) (defun message-hide-header-p (regexps)