# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831268507 0
# Node ID a16fd1b9abb5a43c37c74d13b7c2cc400b151710
# Parent  ea07411f268eb780199916a6fe24c46904a4397c
(mail-mode): Line starting with ---- is a separator.

diff -r ea07411f268e -r a16fd1b9abb5 lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sun May 05 03:52:13 1996 +0000
+++ b/lisp/mail/sendmail.el	Sun May 05 03:55:07 1996 +0000
@@ -327,11 +327,15 @@
   (setq font-lock-defaults '(mail-font-lock-keywords t))
   (make-local-variable 'paragraph-separate)
   (make-local-variable 'paragraph-start)
+  ;; `-- ' precedes the signature.  `-----' appears at the start of the
+  ;; lines that delimit forwarded messages.
+  ;; Lines containing just >= 3 dashes, perhaps after whitespace,
+  ;; are also sometimes used and should be separators.
   (setq paragraph-start (concat (regexp-quote mail-header-separator)
-				"$\\|[ \t]*[-_][-_][-_]+$\\|-- \\|"
+				"$\\|[ \t]*[-_][-_][-_]+$\\|-- $\\|-----\\|"
 				paragraph-start))
   (setq paragraph-separate (concat (regexp-quote mail-header-separator)
-				   "$\\|[ \t]*[-_][-_][-_]+$\\|-- \\|"
+				   "$\\|[ \t]*[-_][-_][-_]+$\\|-- $\\|-----\\|"
 				   paragraph-separate))
   (run-hooks 'text-mode-hook 'mail-mode-hook))