# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 900294343 0
# Node ID 63b084753ad7055168835746b6b182e6d99ccfce
# Parent  516b9dfa5d3406043d7197eca8f8218f66acef06
(mail-citation-prefix-regexp): New variable.
(mail-fill-yanked-message): Pass mail-citation-prefix-regexp
to fill-individual-paragraphs.

diff -r 516b9dfa5d34 -r 63b084753ad7 lisp/mail/sendmail.el
--- 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.