From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Jun 1998 01:30:09 +0000 (+0000)
Subject: (message-mode): Set paragraph-start and
X-Git-Tag: emacs-20.3~700
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b2c677c2c9c91ce0e16ccc6a68dbba027c4cbffa;p=emacs.git

(message-mode): Set paragraph-start and
paragraph-separate as in mail-mode.
---

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index f2ca8d636cf..f104a6e6346 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1258,14 +1258,15 @@ C-c C-r  message-caesar-buffer-body (rot13 the message body)."
 	facemenu-remove-face-function 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]*[-_][-_][-_]+$\\|"
-				"-- $\\|"
-				paragraph-start))
-  (setq paragraph-separate (concat (regexp-quote mail-header-separator)
-				   "$\\|[ \t]*[-_][-_][-_]+$\\|"
-				   "-- $\\|"
-				   paragraph-separate))
+				"$\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|"
+				"-- $\\|---+$\\|"
+				page-delimiter))
+  (setq paragraph-separate paragraph-start)
   (make-local-variable 'message-reply-headers)
   (setq message-reply-headers nil)
   (make-local-variable 'message-newsreader)