From: yamaoka <yamaoka>
Date: Wed, 30 Sep 1998 22:55:45 +0000 (+0000)
Subject: 	* lisp/message.el: Fix my stupid changes.
X-Git-Tag: pgnus-ichikawa-199811302358~195
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=07f4d44f166e857c7c4b02919c616eb07adc35bf;p=elisp%2Fgnus.git-

	* lisp/message.el: Fix my stupid changes.
---

diff --git a/lisp/message.el b/lisp/message.el
index 2f14478..004730c 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -956,7 +956,7 @@ The cdr of ech entry is a function for applying the face to a region.")
 		 (const :tag "always" t)
 		 (const :tag "ask" ask)))
 
-(defvar message-send-coding-system *noconv*
+(defvar message-send-coding-system 'binary
   "Coding system to encode outgoing mail.")
 
 ;;; Internal variables.
@@ -2283,7 +2283,7 @@ the user from the mailer."
 	  (set-buffer errbuf)
 	  (erase-buffer))))
     (let ((default-directory "/")
-	  (output-coding-system message-send-coding-system))
+	  (coding-system-for-write message-send-coding-system))
       (apply 'call-process-region
 	     (append (list (point-min) (point-max)
 			   (if (boundp 'sendmail-program)
@@ -2332,7 +2332,7 @@ to find out how to use this."
   (run-hooks 'message-send-mail-hook)
   ;; send the message
   (case
-      (let ((output-coding-system message-send-coding-system))
+      (let ((coding-system-for-write message-send-coding-system))
 	(apply
 	 'call-process-region 1 (point-max) message-qmail-inject-program
 	 nil nil nil
@@ -2781,7 +2781,7 @@ to find out how to use this."
 (defun message-do-fcc ()
   "Process Fcc headers in the current buffer."
   (let ((case-fold-search t)
-	(output-coding-system *noconv*)
+	(coding-system-for-write 'raw-text)
 	list file)
     (save-excursion
       (set-buffer (get-buffer-create " *message temp*"))