# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873270523 0
# Node ID 3f803418061c3b2fc2d62a62adfa44b6ceb02c44
# Parent  3ada64a43911ac9cf14a5ecb2eee6a01622afd00
(mail-mode): Set adaptive-fill-first-line-regexp
specially, not same as adaptive-fill-regexp.

diff -r 3ada64a43911 -r 3f803418061c lisp/mail/sendmail.el
--- a/lisp/mail/sendmail.el	Wed Sep 03 05:46:54 1997 +0000
+++ b/lisp/mail/sendmail.el	Wed Sep 03 07:08:43 1997 +0000
@@ -359,7 +359,8 @@
   (setq adaptive-fill-regexp
 	(concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-regexp))
   (make-local-variable 'adaptive-fill-first-line-regexp)
-  (setq adaptive-fill-first-line-regexp adaptive-fill-regexp)
+  (setq adaptive-fill-first-line-regexp
+	(concat "[ \t]*[a-z0-9A-Z]*>+[ \t]*\\|" adaptive-fill-first-line-regexp))
   ;; `-- ' precedes the signature.  `-----' appears at the start of the
   ;; lines that delimit forwarded messages.
   ;; Lines containing just >= 3 dashes, perhaps after whitespace,