mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-06-14 04:21:24 +00:00
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:
parent
621239ae6a
commit
bbe805e4b1
1 changed files with 5 additions and 0 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Reference in a new issue