message-do-auto-fill

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 657 bytes --]

Hi,

In latest Gnus CVS, the function `message-setup-fill-variables'
sets the value of `auto-fill-function' to `message-do-auto-fill'
and then `auto-fill-mode' is turned on unconditionally.  The
function `message-do-auto-fill' is good for the message-mode.
However, some people do not like `auto-fill-mode'.  Is it a
feature of Gnus?  If so, people may use a hook to inhibit it as
shown below:

  (add-hook 'message-mode-hook 'turn-off-auto-fill)

Otherwise, Gnus should be changed as follows:


2001-10-16  Katsumi Yamaoka  <yamaoka@jpl.org>

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


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: message.el.diff --]
[-- Type: text/x-patch, Size: 738 bytes --]

--- message.el~	Sun Oct 14 21:53:39 2001
+++ message.el	Tue Oct 16 05:41:38 2001
@@ -1637,6 +1637,7 @@
     (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 @@
 		  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