Commit 706e3d85 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(mail-fill-yanked-message): Pass mail-citation-prefix-regexp
to fill-individual-paragraphs.
parent 7ec4806e
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment