From: tomo <tomo>
Date: Tue, 19 Dec 2000 04:49:07 +0000 (+0000)
Subject: (smtp-open-connection-function): Use `binary-open-network-stream'
X-Git-Tag: semi21-1_14_0-1~29
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1a5dbe36c78814eacfc56de5a4ef6ee8c5fef065;p=elisp%2Flemi.git

(smtp-open-connection-function): Use `binary-open-network-stream'
instead of `open-network-stream' as initial value.
(smtp-open-connection): Don't guard as `binary'.
---

diff --git a/mail/smtp.el b/mail/smtp.el
index 0d3fef5..25b5f72 100644
--- a/mail/smtp.el
+++ b/mail/smtp.el
@@ -31,7 +31,6 @@
 
 ;;; Code:
 
-(require 'pces)
 (require 'custom)
 (require 'mail-utils)			; mail-strip-quoted-names
 (require 'sasl)
@@ -112,8 +111,9 @@ don't define this value."
   :group 'smtp-extensions)
 
 (defvar sasl-mechanisms)
-  
-(defvar smtp-open-connection-function #'open-network-stream)
+
+(autoload 'binary-open-network-stream "raw-io")
+(defvar smtp-open-connection-function #'binary-open-network-stream)
 
 (defvar smtp-read-point nil)
 
@@ -234,12 +234,10 @@ 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* ((coding-system-for-read  'binary)
-	 (coding-system-for-write 'binary)
-	 (process
-	  (funcall smtp-open-connection-function
-		   "SMTP" buffer  server service))
-	 connection)
+  (let ((process
+	 (funcall smtp-open-connection-function
+		  "SMTP" buffer  server service))
+	connection)
     (when process
       (setq connection (smtp-make-connection process server service))
       (set-process-filter process 'smtp-process-filter)