Synch with `slim-1_14'.

diff --git a/lisp/starttls.el b/lisp/starttls.el
index 8d5600e..529dea5 100644 (file)
--- 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