From: yamaoka <yamaoka>
Date: Fri, 19 Oct 2001 12:22:41 +0000 (+0000)
Subject: * message.el (rfc822-goto-eoh): Define it when void.
X-Git-Tag: t-gnus-6_15_4-08-quimby-last-~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=da974e4578f9272878f26d21a709c65c4be16c15;p=elisp%2Fgnus.git-

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

diff --git a/ChangeLog b/ChangeLog
index 04b7fec..0fe294d 100644
--- 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
--- 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)))