From 9b4555700113f01f84713baf534b0b771994c119 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 13 Nov 2002 00:30:32 +0000 Subject: [PATCH] Cosmetic fix. --- smtp.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/smtp.el b/smtp.el index 0a9ca52..2e2b6a3 100644 --- a/smtp.el +++ b/smtp.el @@ -113,6 +113,7 @@ don't define this value." :group 'smtp-extensions) (defvar sasl-mechanisms) + ;;;###autoload (defvar smtp-open-connection-function (function open-network-stream) "*Function used for connecting to a SMTP server. @@ -257,10 +258,10 @@ 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 - (binary-funcall smtp-open-connection-function - "SMTP" buffer server service)) - connection) + (let ((process + (binary-funcall smtp-open-connection-function + "SMTP" buffer server service)) + connection) (when process (setq connection (smtp-make-connection process server service)) (set-process-filter process 'smtp-process-filter) @@ -414,10 +415,10 @@ BUFFER may be a buffer or a buffer name which contains mail message." (if (sasl-step-data step) (base64-encode-string (sasl-step-data step) t) "")))) - ;;; (smtp-connection-set-encoder-internal - ;;; connection (sasl-client-encoder client)) - ;;; (smtp-connection-set-decoder-internal - ;;; connection (sasl-client-decoder client)) +;;; (smtp-connection-set-encoder-internal +;;; connection (sasl-client-encoder client)) +;;; (smtp-connection-set-decoder-internal +;;; connection (sasl-client-decoder client)) )) (defun smtp-primitive-starttls (package) -- 1.7.10.4