From: tomo <tomo>
Date: Mon, 25 Dec 2000 04:25:28 +0000 (+0000)
Subject: (qmtp-open-connection-function): Revert initial value to
X-Git-Tag: flim-1_14-rfc2231-base~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8a82d281e3fdfe1ab2557e07b449640c3a0ab597;p=elisp%2Fflim.git

(qmtp-open-connection-function): Revert initial value to
`open-network-stream'.
(qmtp-send-buffer): Use `binary-funcall'.
---

diff --git a/qmtp.el b/qmtp.el
index 1010857..c7ccf1c 100644
--- a/qmtp.el
+++ b/qmtp.el
@@ -60,9 +60,8 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
   :type 'integer
   :group 'qmtp)
 
-(autoload 'binary-open-network-stream "raw-io")
 ;;;###autoload
-(defvar qmtp-open-connection-function (function binary-open-network-stream))
+(defvar qmtp-open-connection-function (function open-network-stream))
 
 (defvar qmtp-error-response-alist
   '((?Z "Temporary failure")
@@ -128,8 +127,9 @@ called from `qmtp-via-qmtp' with arguments SENDER and RECIPIENTS.")
       (unwind-protect
 	  (progn
 	    (setq process
-		  (funcall qmtp-open-connection-function
-			   "QMTP" (current-buffer) qmtp-server qmtp-service))
+		  (binary-funcall qmtp-open-connection-function
+				  "QMTP" (current-buffer)
+				  qmtp-server qmtp-service))
 	    (qmtp-send-package process sender recipients buffer))
 	(when (and process
 		   (memq (process-status process) '(open run)))