From: morioka <morioka>
Date: Wed, 7 Jan 1998 14:08:10 +0000 (+0000)
Subject: (smtpmail-coding-system): New variable; abolish
X-Git-Tag: gnus-6_7-tomo-199811302358~267
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=df85248b1812ff259e1d7d3f7f13c48deb17f4ce;p=elisp%2Fgnus.git-

(smtpmail-coding-system): New variable; abolish
`smtpmail-code-conv-from'.
(smtpmail-via-smtp): Guard `coding-system-for-write' by
`smtpmail-coding-system'.
---

diff --git a/lisp/smtpmail.el b/lisp/smtpmail.el
index 433c9ec..a56e951 100644
--- a/lisp/smtpmail.el
+++ b/lisp/smtpmail.el
@@ -36,7 +36,6 @@
 ;;(setq smtpmail-local-domain "YOUR DOMAIN NAME")
 ;;(setq smtpmail-debug-info t)
 ;;(load-library "smtpmail")
-;;(setq smtpmail-code-conv-from nil)
 ;;(setq user-full-name "YOUR NAME HERE")
 
 ;; To queue mail, set smtpmail-queue-mail to t and use 
@@ -82,9 +81,9 @@ don't define this value."
   :type 'boolean
   :group 'smtpmail)
 
-(defcustom smtpmail-code-conv-from nil ;; *junet*
-  "*smtpmail code convert from this code to *internal*..for tiny-mime.."
-  :type 'boolean
+(defcustom smtpmail-coding-system 'binary
+  "*Coding-system for SMTP output."
+  :type 'coding-system
   :group 'smtpmail)
 
 (defcustom smtpmail-queue-mail nil 
@@ -328,7 +327,8 @@ This is relative to `smtpmail-queue-dir'.")
 	response-code
 	greeting
 	process-buffer
-	(supported-extensions '()))
+	(supported-extensions '())
+	(coding-system-for-write smtpmail-coding-system))
     (unwind-protect
 	(catch 'done
 	  ;; get or create the trace buffer
@@ -583,9 +583,6 @@ This is relative to `smtpmail-queue-dir'.")
 (defun smtpmail-send-data-1 (process data)
   (goto-char (point-max))
 
-  (if (not (null smtpmail-code-conv-from))
-      (setq data (code-convert-string data smtpmail-code-conv-from *internal*)))
-	
   (if smtpmail-debug-info
       (insert data "\r\n"))