From: yamaoka <yamaoka>
Date: Tue, 8 Dec 1998 10:10:34 +0000 (+0000)
Subject: * smtp.el (smtp-coding-system): Abolished.
X-Git-Tag: flim-1_12-199812081900
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=990b5a9ec6077d2e7463a507209b5159c9f32445;p=elisp%2Fflim.git

* smtp.el (smtp-coding-system): Abolished.
(smtp-via-smtp): Use `open-network-stream-as-binary' instead of
`open-network-stream'.
---

diff --git a/ChangeLog b/ChangeLog
index 4ffb30d..4968a5e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+1998-12-08  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* smtp.el (smtp-coding-system): Abolished.
+	(smtp-via-smtp): Use `open-network-stream-as-binary' instead of
+	`open-network-stream'.
+
 1998-12-04  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* mel-b-ccl.el (base64-ccl-insert-encoded-file): Use
diff --git a/smtp.el b/smtp.el
index e5031a2..79ef969 100644
--- a/smtp.el
+++ b/smtp.el
@@ -60,11 +60,6 @@ don't define this value."
   :type '(choice (const nil) string)
   :group 'smtp)
 
-(defcustom smtp-coding-system 'binary
-  "*Coding-system for SMTP output."
-  :type 'coding-system
-  :group 'smtp)
-
 (defvar smtp-debug-info nil)
 (defvar smtp-read-point nil)
 
@@ -80,9 +75,7 @@ don't define this value."
       (error "Cannot generate valid FQDN. Set `smtp-local-domain' correctly.")))))
 
 (defun smtp-via-smtp (sender recipients smtp-text-buffer)
-  (let ((coding-system-for-read smtp-coding-system)
-	(coding-system-for-write smtp-coding-system)
-	process response extensions)
+  (let (process response extensions)
     (save-excursion
       (set-buffer
        (get-buffer-create
@@ -93,9 +86,8 @@ don't define this value."
 
       (unwind-protect
 	  (catch 'done
-	    (setq process (open-network-stream "SMTP"
-					       (current-buffer)
-					       smtp-server smtp-service))
+	    (setq process (open-network-stream-as-binary
+			   "SMTP" (current-buffer) smtp-server smtp-service))
 	    (or process (throw 'done nil))
 
 	    (set-process-filter process 'smtp-process-filter)