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

diff --git a/lisp/hilit19.el b/lisp/hilit19.el
index 9694d7dd0c33c3008cb4a295e8cd14d8e4d282db..941e797d2dae302bc74b2e1bc6027957719ab328 100644 (file)
--- 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)))