message.el: Fix part of bug#81035

* 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

View file

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