From 92a3f23d5b60680de5afea9b1885d7ebc314ee6d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Apr 1998 06:12:32 +0000 Subject: [PATCH] (smtpmail-send-it): Use mail-sendmail-undelimit-header. --- lisp/mail/smtpmail.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 95b512a65b..b747eafe16 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 -- 2.39.2