From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 May 1996 03:55:07 +0000 (+0000)
Subject: (mail-mode): Line starting with ---- is a separator.
X-Git-Tag: emacs-19.34~700
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df0d89b112fe203163cede520aa680c52ee8623b;p=emacs.git

(mail-mode): Line starting with ---- is a separator.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index a8185e1f557..da3707f2179 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -327,11 +327,15 @@ C-c C-v  mail-sent-via (add a Sent-via field for each To or CC)."
   (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))