Mercurial > emacs
changeset 23096:e4419c63d4d7
(message-send-mail-with-sendmail): Bind
coding-system-for-write by the return value of
select-message-coding-system.
(message-send-mail-with-qmail): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 25 Aug 1998 10:25:03 +0000 |
| parents | 4e83e072cd97 |
| children | 86a92272892c |
| files | lisp/gnus/message.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/message.el Tue Aug 25 03:59:40 1998 +0000 +++ b/lisp/gnus/message.el Tue Aug 25 10:25:03 1998 +0000 @@ -1904,7 +1904,8 @@ (save-excursion (set-buffer errbuf) (erase-buffer)))) - (let ((default-directory "/")) + (let ((default-directory "/") + (coding-system-for-write (select-message-coding-system))) (apply 'call-process-region (append (list (point-min) (point-max) (if (boundp 'sendmail-program) @@ -1952,6 +1953,7 @@ (run-hooks 'message-send-mail-hook) ;; send the message (case + (let ((coding-system-for-write (select-message-coding-system))) (apply 'call-process-region 1 (point-max) message-qmail-inject-program nil nil nil @@ -1972,7 +1974,7 @@ ;; free for -inject-arguments -- a big win for the user and for us ;; since we don't have to play that double-guessing game and the user ;; gets full control (no gestapo'ish -f's, for instance). --sj - message-qmail-inject-args) + message-qmail-inject-args)) ;; qmail-inject doesn't say anything on it's stdout/stderr, ;; we have to look at the retval instead (0 nil)