Mercurial > emacs
changeset 22378:18a60ded5193
(message-mode): Set paragraph-start and
paragraph-separate as in mail-mode.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Jun 1998 01:30:09 +0000 |
| parents | 24999a02843d |
| children | 1566131616f2 |
| files | lisp/gnus/message.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/message.el Sat Jun 06 22:43:31 1998 +0000 +++ b/lisp/gnus/message.el Sun Jun 07 01:30:09 1998 +0000 @@ -1258,14 +1258,15 @@ 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)