From 90ad3351f9a9b0b1fe7e46a4b557f35af995c995 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 14 Dec 2000 07:18:15 +0000 Subject: [PATCH] (smtp-open-connection): Don't use `as-binary-process'. --- smtp.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/smtp.el b/smtp.el index 847c7a8..0d3fef5 100644 --- a/smtp.el +++ b/smtp.el @@ -234,11 +234,12 @@ 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 ((process - (as-binary-process + (let* ((coding-system-for-read 'binary) + (coding-system-for-write 'binary) + (process (funcall smtp-open-connection-function - "SMTP" buffer server service))) - connection) + "SMTP" buffer server service)) + connection) (when process (setq connection (smtp-make-connection process server service)) (set-process-filter process 'smtp-process-filter) -- 1.7.10.4