# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894091844 0
# Node ID 2ee50035ee1be35af551705ac16923348e63c0b4
# Parent  b1e64615e70028d576864cf518ab39a88f8e8534
(rfc822-goto-eoh): Stop at a blank line, too.

(rfc822-goto-eoh): New function.
(sendmail-user-agent-compose): Use rfc822-goto-eoh.

diff -r b1e64615e700 -r 2ee50035ee1b lisp/simple.el
--- a/lisp/simple.el	Sat May 02 06:43:03 1998 +0000
+++ b/lisp/simple.el	Sat May 02 06:50:44 1998 +0000
@@ -3450,6 +3450,13 @@
   'sendmail-user-agent-compose
   'mail-send-and-exit)
 
+(defun 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 sendmail-user-agent-compose (&optional to subject other-headers continue
 					      switch-function yank-action
 					      send-actions)
@@ -3465,9 +3472,7 @@
 	continue
 	(error "Message aborted"))
     (save-excursion
-      (goto-char (point-min))
-      (search-forward mail-header-separator)
-      (beginning-of-line)
+      (rfc822-goto-eoh)
       (while other-headers
 	(if (not (member (car (car other-headers)) '("in-reply-to" "cc")))
 	    (insert (car (car other-headers)) ": "