From: yamaoka <yamaoka>
Date: Mon, 2 Oct 2000 01:06:19 +0000 (+0000)
Subject: Synch with `slim-1_14'.
X-Git-Tag: t-gnus-6_14-quimby-before-installer-changed-~75
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0a0ec727b196e6a6648f5af262a25e1cdfe5d44b;p=elisp%2Fgnus.git-

Synch with `slim-1_14'.
---

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