From: okada <okada>
Date: Fri, 11 Aug 2000 18:23:46 +0000 (+0000)
Subject: Sync up with starttls-0.4
X-Git-Tag: slim-1_14_2~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4b2b0662aa15bca22ce20195b0738ac2ca6e23fc;p=elisp%2Fflim.git

Sync up with starttls-0.4
---

diff --git a/ChangeLog b/ChangeLog
index 8e319a2..1e4fa3f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2000-08-12	Kenichi OKADA   <okada@opaopa.org>
+
+	* SLIM: Version 1.14.1 released.
+
+2000-08-12	Kenichi OKADA   <okada@opaopa.org>
+
+	* starttls.el (starttls-open-stream): Put `starttls-extra-args' on
+	the last arg.
+
+2000-08-11	Kenichi OKADA   <okada@opaopa.org>
+
+	* starttls.el (starttls-open-ssl-stream): New function.
+	(starttls-open-stream): Move `starttls-extra-args'.
+
 2000-07-12  Kenichi OKADA <okada@opaopa.org>
 
 	* mime-def.el (mime-library-product): Up.
diff --git a/starttls.el b/starttls.el
index 2cc004f..bb2f04f 100644
--- a/starttls.el
+++ b/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