* lisp/mail/sendmail.el (mail-sendmail-undelimit-header): Work for

the case where the mail header separator has already been deleted.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index ab6ac4b1885571891c6a4fe9b154b2cef00102f9..f1c6d395997dcba7b4e084d56daccd398ad4035b 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -785,7 +785,9 @@ Concretely: replace the first blank line in the header with the separator."
   "Remove header separator to put the message in correct form for sendmail.
 Leave point at the start of the delimiter line."
   (goto-char (point-min))
-  (when (re-search-forward (concat "^" (regexp-quote mail-header-separator) "\n"))
+  (when (re-search-forward
+        (concat "^" (regexp-quote mail-header-separator) "\n")
+        nil t)
     (replace-match "\n"))
   (rfc822-goto-eoh))