From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 Jul 1998 01:45:43 +0000 (+0000)
Subject: (mail-citation-prefix-regexp): New variable.
X-Git-Tag: emacs-20.3~332
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=706e3d859134f07a7dbc54827356d83551b3fdc4;p=emacs.git

(mail-citation-prefix-regexp): New variable.
(mail-fill-yanked-message): Pass mail-citation-prefix-regexp
to fill-individual-paragraphs.
---

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.