From 8a82d281e3fdfe1ab2557e07b449640c3a0ab597 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 25 Dec 2000 04:25:28 +0000 Subject: [PATCH] (qmtp-open-connection-function): Revert initial value to `open-network-stream'. (qmtp-send-buffer): Use `binary-funcall'. --- qmtp.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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))) -- 1.7.10.4