diff options
| author | Richard M. Stallman | 1998-05-03 04:36:03 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-03 04:36:03 +0000 |
| commit | 82860d5cff5b04431f822b5985ed38212bafca27 (patch) | |
| tree | 3e8bbae810797b38520e808a3065f735d35e0d76 | |
| parent | 51d541d42c69e8e3890a54627828595b20a5ae64 (diff) | |
| download | emacs-82860d5cff5b04431f822b5985ed38212bafca27.tar.gz emacs-82860d5cff5b04431f822b5985ed38212bafca27.zip | |
(post-mail-send-it): Use mail-sendmail-undelimit-header.
| -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." | |||
| 43 | (or (= (preceding-char) ?\n) | 43 | (or (= (preceding-char) ?\n) |
| 44 | (insert ?\n)) | 44 | (insert ?\n)) |
| 45 | ;; Change header-delimiter to be what post-mail expects. | 45 | ;; Change header-delimiter to be what post-mail expects. |
| 46 | (goto-char (point-min)) | 46 | (mail-sendmail-undelimit-header) |
| 47 | (search-forward (concat "\n" mail-header-separator "\n")) | ||
| 48 | (replace-match "\n\n") | ||
| 49 | (backward-char 1) | ||
| 50 | (setq delimline (point-marker)) | 47 | (setq delimline (point-marker)) |
| 51 | (if mail-aliases | 48 | (if mail-aliases |
| 52 | (expand-mail-aliases (point-min) delimline)) | 49 | (expand-mail-aliases (point-min) delimline)) |