[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 0030713: * lisp/mail/sendmail.el (mail-sendmail-und

From: Katsumi Yamaoka
Subject: [Emacs-diffs] master 0030713: * lisp/mail/sendmail.el (mail-sendmail-undelimit-header): Work for
Date: Tue, 17 Apr 2018 02:22:38 -0400 (EDT)

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) 
+  (when (re-search-forward
+        (concat "^" (regexp-quote mail-header-separator) "\n")
+        nil t)
     (replace-match "\n"))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]