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

92a3f23d · Richard M. Stallman · 48ad0947 · 92a3f23d
Commit 92a3f23d authored Apr 30, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 5 deletions

lisp/mail/smtpmail.el lisp/mail/smtpmail.el +1 -5

No files found.
--- 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