Commit 12033e9a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(hilit-rehighlight-message): Respect mail-mode header/body separation line.

parent dec137e5
......@@ -786,7 +786,9 @@ non-nil."
"Highlight a buffer containing a news article or mail message."
(save-excursion
(goto-char (point-min))
(re-search-forward "^$" nil 'noerr)
;; find separation between headers and body (either a blank line or
;; the message separator line in mail-mode)
(re-search-forward "^\\(\\|--text follows this line--\\)$" nil 'noerr)
(hilit-unhighlight-region (point-min) (point-max) quietly)
(hilit-highlight-region (point-min) (point) 'msg-header quietly)
(hilit-highlight-region (point) (point-max) 'msg-body quietly)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment