From Katsumi Yamaoka <yamaoka@jpl.org>:

(message-setup-fill-variables): Use
`normal-auto-fill-function' instead of `auto-fill-function'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fdf4cb0..b0fae58 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-16  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+       From Katsumi Yamaoka  <yamaoka@jpl.org>.
+
+       * message.el (message-setup-fill-variables): Use
+       `normal-auto-fill-function' instead of `auto-fill-function'.
+
 2001-10-16  Simon Josefsson  <jas@extundo.com>
 
        * mml2015.el (mml2015-fix-micalg): Fix for Mutt-bug.

diff --git a/lisp/message.el b/lisp/message.el
index 620100a..730d6e2 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1637,6 +1637,7 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
     (setq adaptive-fill-first-line-regexp nil))
   (make-local-variable 'adaptive-fill-first-line-regexp)
   (make-local-variable 'auto-fill-inhibit-regexp)
+  (make-local-variable 'normal-auto-fill-function)
   (let ((quote-prefix-regexp
         ;; User should change message-cite-prefix-regexp if
         ;; message-yank-prefix is set to an abnormal value.
@@ -1658,7 +1659,7 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
                  adaptive-fill-first-line-regexp))
     ;;(setq auto-fill-inhibit-regexp "^[A-Z][^: \n\t]+:")
     (setq auto-fill-inhibit-regexp nil)
-    (setq auto-fill-function 'message-do-auto-fill)))
+    (setq normal-auto-fill-function 'message-do-auto-fill)))
 
 \f