From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 May 1998 04:36:03 +0000 (+0000)
Subject: (post-mail-send-it): Use mail-sendmail-undelimit-header.
X-Git-Tag: emacs-20.3~1156
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82860d5cff5b04431f822b5985ed38212bafca27;p=emacs.git

(post-mail-send-it): Use mail-sendmail-undelimit-header.
---

diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el
index e6c70cb13a3..91998a1bb72 100644
--- a/lisp/mail/mailpost.el
+++ b/lisp/mail/mailpost.el
@@ -43,10 +43,7 @@ site-init."
 	  (or (= (preceding-char) ?\n)
 	      (insert ?\n))
 	  ;; Change header-delimiter to be what post-mail expects.
-	  (goto-char (point-min))
-	  (search-forward (concat "\n" mail-header-separator "\n"))
-	  (replace-match "\n\n")
-	  (backward-char 1)
+	  (mail-sendmail-undelimit-header)
 	  (setq delimline (point-marker))
 	  (if mail-aliases
 	      (expand-mail-aliases (point-min) delimline))