From: tomo <tomo>
Date: Thu, 14 Dec 2000 07:18:15 +0000 (+0000)
Subject: (smtp-open-connection): Don't use `as-binary-process'.
X-Git-Tag: flim-1_14_0-pre5~9
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=90ad3351f9a9b0b1fe7e46a4b557f35af995c995;p=elisp%2Fflim.git

(smtp-open-connection): Don't use `as-binary-process'.
---

diff --git a/smtp.el b/smtp.el
index 847c7a8..0d3fef5 100644
--- a/smtp.el
+++ b/smtp.el
@@ -234,11 +234,12 @@ to connect to.  SERVICE is name of the service desired."
 Return a newly allocated connection-object.
 BUFFER is the buffer to associate with the connection.  SERVER is name
 of the host to connect to.  SERVICE is name of the service desired."
-  (let ((process
-	 (as-binary-process
+  (let* ((coding-system-for-read  'binary)
+	 (coding-system-for-write 'binary)
+	 (process
 	  (funcall smtp-open-connection-function
-		   "SMTP" buffer  server service)))
-	connection)
+		   "SMTP" buffer  server service))
+	 connection)
     (when process
       (setq connection (smtp-make-connection process server service))
       (set-process-filter process 'smtp-process-filter)