changeset 21921:ea04bf51647c

(post-mail-send-it): Use mail-sendmail-undelimit-header.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 May 1998 04:36:03 +0000
parents eeb4e3a385db
children 714591991067
files lisp/mail/mailpost.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))