Mercurial > emacs
changeset 22839:7de1a0224450
(mail-mode): Add the citation regexp
to adaptive-fill-regexp after the usual contents.
But modify the usual contents not to match whitespace alone;
match that again last.
Add that citation regexp to paragraph-start and paragraph-separate too.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Jul 1998 23:09:41 +0000 |
| parents | 4b3e0d38cdb0 |
| children | be572a467b59 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 7 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Mon Jul 27 08:35:47 1998 +0000 +++ b/lisp/mail/sendmail.el Mon Jul 27 23:09:41 1998 +0000 @@ -425,16 +425,20 @@ (setq fill-paragraph-function 'mail-mode-fill-paragraph) (make-local-variable 'adaptive-fill-regexp) (setq adaptive-fill-regexp - (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp)) + (concat "[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)+" + "\\|[ \t]*[-a-z0-9A-Z]*>+[ \t]*" + "\\|[ \t]*")) (make-local-variable 'adaptive-fill-first-line-regexp) (setq adaptive-fill-first-line-regexp - (concat "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp)) + (concat adaptive-fill-first-line-regexp + "\\|[ \t]*[-a-z0-9A-Z]*>+[ \t]*")) ;; `-- ' 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]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|" + "$\\|[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)*$" + "\\|[ \t]*[a-z0-9A-Z]*>+[ \t]*$\\|[ \t]*$\\|" "-- $\\|---+$\\|" page-delimiter)) (setq paragraph-separate paragraph-start)