# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861163765 0
# Node ID b555959aaf3f84d1eee066b2abba385deaa9a99e
# Parent  abfa77a2693baa28811267e2e1240481e7f86c24
(hilit-rehighlight-message): Respect mail-mode header/body separation line.

diff -r abfa77a2693b -r b555959aaf3f lisp/hilit19.el
--- a/lisp/hilit19.el	Wed Apr 16 01:04:54 1997 +0000
+++ b/lisp/hilit19.el	Wed Apr 16 04:09:25 1997 +0000
@@ -786,7 +786,9 @@
   "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)))