From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 16 Apr 1997 04:09:25 +0000 (+0000)
Subject: (hilit-rehighlight-message): Respect mail-mode header/body separation line.
X-Git-Tag: emacs-20.1~2459
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12033e9aa80518c60c3d89c493498391962d655e;p=emacs.git

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

diff --git a/lisp/hilit19.el b/lisp/hilit19.el
index 9694d7dd0c3..941e797d2da 100644
--- 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)))