* message.el (rfc822-goto-eoh): Define it when void.

diff --git a/ChangeLog b/ChangeLog
index 04b7fec..0fe294d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2001-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * lisp/message.el (rfc822-goto-eoh): Define it when void.
+
+2001-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
        * lisp/message.el (message-resend, message-send): Undo.
 
 2001-10-19  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/message.el b/lisp/message.el
index cb3aa04..dda1010 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2200,6 +2200,13 @@ Prefix arg means justify as well."
     (message-newline-and-reformat arg t)
     t))
 
+(defun-maybe rfc822-goto-eoh ()
+  ;; Go to header delimiter line in a mail message, following RFC822 rules
+  (goto-char (point-min))
+  (while (looking-at "^[^: \n]+:\\|^[ \t]")
+    (forward-line 1))
+  (point))
+
 (defun message-do-auto-fill ()
   "Like `do-auto-fill', but don't fill in message header."
   (when (> (point) (save-excursion (rfc822-goto-eoh)))