Mercurial > emacs
changeset 22747:63b084753ad7
(mail-citation-prefix-regexp): New variable.
(mail-fill-yanked-message): Pass mail-citation-prefix-regexp
to fill-individual-paragraphs.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 Jul 1998 01:45:43 +0000 |
| parents | 516b9dfa5d34 |
| children | 8d234814a5a6 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Mon Jul 13 01:10:09 1998 +0000 +++ b/lisp/mail/sendmail.el Mon Jul 13 01:45:43 1998 +0000 @@ -173,6 +173,15 @@ :type 'hook :group 'sendmail) +(defcustom mail-citation-prefix-regexp "[ \t]*[-a-z0-9A-Z]*>+[ \t]*\\|[ \t]*" + "*Regular expression to match a citation prefix plus whitespace. +It should match whatever sort of citation prefixes you want to handle, +with whitespace before and after; it should also match just whitespace. +The default value matches citations like `foo-bar>' plus whitespace." + :type 'regexp + :group 'sendmail + :version "20.3") + (defvar mail-abbrevs-loaded nil) (defvar mail-mode-map nil) @@ -1124,7 +1133,7 @@ (fill-individual-paragraphs (point) (point-max) justifyp - t))) + mail-citation-prefix-regexp))) (defun mail-indent-citation () "Modify text just inserted from a message to be cited.