Sync up with starttls-0.4

diff --git a/ChangeLog b/ChangeLog
index 8e319a2..1e4fa3f 100644 (file)
--- 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 (file)
--- 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