From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 22 Aug 2001 22:21:11 +0000 (+0000)
Subject: (mail-mode): Use adaptive-fill-regexp.
X-Git-Tag: emacs-pretest-21.0.105~113
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9bfc65eb836630e43f2b2926c761bd35924cbf26;p=emacs.git

(mail-mode): Use adaptive-fill-regexp.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b3ed84f1c9e..30d58ad4da6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-08-22  Stefan Monnier  <monnier@cs.yale.edu>
+
+	* mail/sendmail.el (mail-mode): Use adaptive-fill-regexp.
+
+	* textmodes/fill.el (adaptive-fill-regexp): Admit tabs as well.
+
 2001-08-22  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* simple.el (line-number-mode): Mention the variable
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 1ff0453e62e..5c572587dcf 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -497,9 +497,8 @@ Turning on Mail mode runs the normal hooks `text-mode-hook' and
   (set (make-local-variable 'comment-start) mail-yank-prefix)
   (make-local-variable 'adaptive-fill-regexp)
   (setq adaptive-fill-regexp
-	(concat "[ \t]*\\([-|#;>*]+ *\\|(?[0-9]+[.)] *\\)+"
-		"\\|[ \t]*[-[:alnum:]]*>+[ \t]*"
-		"\\|[ \t]*"))
+	(concat adaptive-fill-regexp
+		"\\|[ \t]*[-[:alnum:]]*>+[ \t]*"))
   (make-local-variable 'adaptive-fill-first-line-regexp)
   (setq adaptive-fill-first-line-regexp
 	(concat adaptive-fill-first-line-regexp