mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

(mail-citation-prefix-regexp): New variable.

Browse Source 
(mail-fill-yanked-message): Pass mail-citation-prefix-regexp
to fill-individual-paragraphs.
This commit is contained in:
Richard M. Stallman 1998-07-13 01:45:43 +00:00
parent 7ec4806e71
commit 706e3d8591
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/mail/sendmail.el
View File

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