From b2c677c2c9c91ce0e16ccc6a68dbba027c4cbffa Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Jun 1998 01:30:09 +0000 Subject: [PATCH] (message-mode): Set paragraph-start and paragraph-separate as in mail-mode. --- lisp/gnus/message.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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) -- 2.39.5