From 0a0ec727b196e6a6648f5af262a25e1cdfe5d44b Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 2 Oct 2000 01:06:19 +0000 Subject: [PATCH] Synch with `slim-1_14'. --- lisp/starttls.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lisp/starttls.el b/lisp/starttls.el index 8d5600e..529dea5 100644 --- a/lisp/starttls.el +++ b/lisp/starttls.el @@ -74,6 +74,11 @@ specifying a port number to connect to." (process-kill-without-query process) process)) +(defun starttls-open-ssl-stream (name buffer host service) + (let* ((starttls-extra-args + (cons "--force" starttls-extra-args))) + (starttls-open-stream name buffer host service))) + (provide 'starttls) ;;; starttls.el ends here -- 1.7.10.4