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

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

diff --git a/mail/qmtp.el b/mail/qmtp.el
index 9be821d..cf5c294 100644
--- a/mail/qmtp.el
+++ b/mail/qmtp.el
@@ -60,7 +60,8 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
   :type 'integer
   :group 'qmtp)
 
-(defvar qmtp-open-connection-function (function open-network-stream))
+(autoload 'binary-open-network-stream "raw-io")
+(defvar qmtp-open-connection-function (function binary-open-network-stream))
 
 (defvar qmtp-error-response-alist
   '((?Z "Temporary failure")
@@ -124,8 +125,7 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
     (setq qmtp-read-point (point-min))
     (let (process)
       (unwind-protect
-	  (let ((coding-system-for-read  'binary)
-		(coding-system-for-write 'binary))
+	  (progn
 	    (setq process
 		  (funcall qmtp-open-connection-function
 			   "QMTP" (current-buffer) qmtp-server qmtp-service))