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

1 files changed, 1 insertions, 5 deletions

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