diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-03 04:36:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-03 04:36:03 +0000 |
| commit | 82860d5cff5b04431f822b5985ed38212bafca27 (patch) | |
| tree | 3e8bbae810797b38520e808a3065f735d35e0d76 /lisp/mail/mailpost.el | |
| parent | 51d541d42c69e8e3890a54627828595b20a5ae64 (diff) | |
| download | emacs-82860d5cff5b04431f822b5985ed38212bafca27.tar.gz | |
(post-mail-send-it): Use mail-sendmail-undelimit-header.
Diffstat (limited to 'lisp/mail/mailpost.el')
| -rw-r--r-- | lisp/mail/mailpost.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el index e6c70cb13a3..91998a1bb72 100644 --- a/lisp/mail/mailpost.el +++ b/lisp/mail/mailpost.el @@ -43,10 +43,7 @@ site-init." (or (= (preceding-char) ?\n) (insert ?\n)) ;; Change header-delimiter to be what post-mail expects. - (goto-char (point-min)) - (search-forward (concat "\n" mail-header-separator "\n")) - (replace-match "\n\n") - (backward-char 1) + (mail-sendmail-undelimit-header) (setq delimline (point-marker)) (if mail-aliases (expand-mail-aliases (point-min) delimline)) |