From 3d2097058e72f9d4cb2448bfb194579071a9638d Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 19 Dec 2000 04:47:46 +0000 Subject: [PATCH] (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'. --- mail/qmtp.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4