2001-10-20 Per Abrahamsen <abraham@dina.kvl.dk>

	* message.el (message-do-auto-fill): Avoid calling
	'rfc822-goto-eoh'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c84921..136bac5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-20  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * message.el (message-do-auto-fill): Avoid calling
+       'rfc822-goto-eoh'. 
+
 2001-10-20  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
        From Paul Jarc <prj@po.cwru.edu>.
        

diff --git a/lisp/message.el b/lisp/message.el
index 10e7b78..0767896 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1940,7 +1940,13 @@ Prefix arg means justify as well."
 
 (defun message-do-auto-fill ()
   "Like `do-auto-fill', but don't fill in message header."
-  (when (> (point) (save-excursion (rfc822-goto-eoh)))
+  (when (> (point) (save-excursion 
+                    (goto-char (point-min))
+                    (if (re-search-forward
+                         (concat "^" (regexp-quote mail-header-separator)
+                                 "\n") nil t)
+                        (match-beginning 0)
+                      (point-max))))
     (do-auto-fill)))
 
 (defun message-insert-signature (&optional force)