# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894170163 0
# Node ID ea04bf51647c4f49716b4c2a06ba0920faa28515
# Parent  eeb4e3a385dbb5a70c5465f8a68d391c47ed3849
(post-mail-send-it): Use mail-sendmail-undelimit-header.

diff -r eeb4e3a385db -r ea04bf51647c lisp/mail/mailpost.el
--- a/lisp/mail/mailpost.el	Sun May 03 04:35:16 1998 +0000
+++ b/lisp/mail/mailpost.el	Sun May 03 04:36:03 1998 +0000
@@ -43,10 +43,7 @@
 	  (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))