diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-13 01:45:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-13 01:45:43 +0000 |
| commit | 706e3d859134f07a7dbc54827356d83551b3fdc4 (patch) | |
| tree | 8bb37973846b9d8946e705aadc66a0e5773923fb | |
| parent | 7ec4806e71fd2b51f8925f6e4d60db3fbf946b7e (diff) | |
| download | emacs-706e3d859134f07a7dbc54827356d83551b3fdc4.tar.gz emacs-706e3d859134f07a7dbc54827356d83551b3fdc4.tar.bz2 emacs-706e3d859134f07a7dbc54827356d83551b3fdc4.zip | |
(mail-citation-prefix-regexp): New variable.
(mail-fill-yanked-message): Pass mail-citation-prefix-regexp
to fill-individual-paragraphs.
| -rw-r--r-- | lisp/mail/sendmail.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 4b36b2d2e93..81a99113f9d 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -173,6 +173,15 @@ instead of no action." :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 @@ Numeric argument means justify as well." (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. |