From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 30 Apr 1998 06:12:32 +0000 (+0000)
Subject: (smtpmail-send-it): Use mail-sendmail-undelimit-header.
X-Git-Tag: emacs-20.3~1215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=92a3f23d5b60680de5afea9b1885d7ebc314ee6d;p=emacs.git

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

diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el
index 95b512a65b3..b747eafe16e 100644
--- a/lisp/mail/smtpmail.el
+++ b/lisp/mail/smtpmail.el
@@ -129,11 +129,7 @@ This is relative to `smtpmail-queue-dir'.")
 	  (or (= (preceding-char) ?\n)
 	      (insert ?\n))
 	  ;; Change header-delimiter to be what sendmail expects.
-	  (goto-char (point-min))
-	  (re-search-forward
-	    (concat "^" (regexp-quote mail-header-separator) "\n"))
-	  (replace-match "\n")
-	  (backward-char 1)
+	  (mail-sendmail-undelimit-header)
 	  (setq delimline (point-marker))
 ;;	  (sendmail-synch-aliases)
 	  (if mail-aliases