# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 869955566 0
# Node ID f5d103332d9e067f806f2c25c5beaabcfac2e8a5
# Parent  4d5237dec736125edb335336c2a78c48e193c57b
(mail-mode): Make adaptive-fill-regexp
match more values.  Bind adaptive-fill-first-line-regexp too.

diff -r 4d5237dec736 -r f5d103332d9e lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Sat Jul 26 19:01:01 1997 +0000
+++ b/lisp/mail/sendmail.el	Sat Jul 26 22:19:26 1997 +0000
@@ -348,7 +348,9 @@
   (setq fill-paragraph-function 'mail-mode-fill-paragraph)
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
-	(concat "[ \t]+[a-z0-9A-Z]+> *\\|" adaptive-fill-regexp))
+	(concat "[ \t]+[a-z0-9A-Z]*>+ *\\|" adaptive-fill-regexp))
+  (make-local-variable 'adaptive-fill-first-line-regexp)
+  (setq adaptive-fill-first-line-regexp adaptive-fill-regexp)
   ;; `-- ' precedes the signature.  `-----' appears at the start of the
   ;; lines that delimit forwarded messages.
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,