mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1996-05-05 03:55:07 +00:00
parent 566f2169f2
commit df0d89b112
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/mail/sendmail.el
View file

@ -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))