Mercurial > emacs

changeset 21862:c0569fcdef88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(smtpmail-send-it): Use mail-sendmail-undelimit-header.
author Richard M. Stallman <rms@gnu.org>
date Thu, 30 Apr 1998 06:12:32 +0000
parents d5d9362aa189
children d84de2f4c38d
files lisp/mail/smtpmail.el
diffstat 1 files changed, 1 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/smtpmail.el	Thu Apr 30 06:11:39 1998 +0000
+++ b/lisp/mail/smtpmail.el	Thu Apr 30 06:12:32 1998 +0000
@@ -129,11 +129,7 @@
 	  (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