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

12033e9a · Richard M. Stallman · dec137e5 · 12033e9a
Commit 12033e9a authored Apr 16, 1997 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

lisp/hilit19.el lisp/hilit19.el +3 -1

No files found.
--- a/lisp/hilit19.el
+++ b/lisp/hilit19.el
@@ -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)))