# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 904040703 0
# Node ID e4419c63d4d7ba6ed7ddba5971290277d15ec8a5
# Parent  4e83e072cd97a35e3b8e308c7cbb212b2f6ef6be
(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.

diff -r 4e83e072cd97 -r e4419c63d4d7 lisp/gnus/message.el
--- 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)