[Emacs-diffs] master 0030713: * lisp/mail/sendmail.el (mail-sendmail-undelimit-header): Work for

[Katsumi Yamaoka]

branch: master
commit 003071346cdc914f28a8e8b3a8bf0c8f5f3b52dc
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>

    * lisp/mail/sendmail.el (mail-sendmail-undelimit-header): Work for
    the case where the mail header separator has already been deleted.
---
 lisp/mail/sendmail.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index ab6ac4b..f1c6d39 100644
--- 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))