From fa0d7e97a08fc91b23ace56713c5a1b0e5bff8b2 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 25 Dec 2000 04:28:53 +0000 Subject: [PATCH] (smtp-open-connection-function): Revert initial value to `open-network-stream'. (qmtp-open-connection): Use `binary-funcall'. --- smtp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/smtp.el b/smtp.el index 75cbae0..cf8503c 100644 --- a/smtp.el +++ b/smtp.el @@ -1,6 +1,6 @@ ;;; smtp.el --- basic functions to send mail with SMTP server -;; Copyright (C) 1995, 1996, 1998, 1999 Free Software Foundation, Inc. +;; Copyright (C) 1995, 1996, 1998, 1999, 2000 Free Software Foundation, Inc. ;; Author: Tomoji Kagatani ;; Simon Leinen (ESMTP support) @@ -35,6 +35,7 @@ (require 'mail-utils) ; mail-strip-quoted-names (require 'sasl) (require 'luna) +(require 'mel) ; binary-funcall (defgroup smtp nil "SMTP protocol for sending mail." @@ -112,9 +113,8 @@ don't define this value." (defvar sasl-mechanisms) -(autoload 'binary-open-network-stream "raw-io") ;;;###autoload -(defvar smtp-open-connection-function #'binary-open-network-stream) +(defvar smtp-open-connection-function #'open-network-stream) (defvar smtp-read-point nil) @@ -236,8 +236,8 @@ 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 - (funcall smtp-open-connection-function - "SMTP" buffer server service)) + (binary-funcall smtp-open-connection-function + "SMTP" buffer server service)) connection) (when process (setq connection (smtp-make-connection process server service)) -- 1.7.10.4