X-Git-Url: https://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Ftls.el;h=daa1c18c8bfb7b33164b501a5d32e516d4f97237;hb=8339220cc25db3fbdab4367d6252e596bddd9cb1;hp=ad0768968e583c535f503a90b34347bdf9af7ebc;hpb=3d0fca5f69e5634824a649a97eabcbb8bbc5aa23;p=gnus

diff --git a/lisp/tls.el b/lisp/tls.el
index ad0768968..daa1c18c8 100644
--- a/lisp/tls.el
+++ b/lisp/tls.el
@@ -76,12 +76,11 @@ and `gnutls-cli' (version 2.0.1) output."
   :group 'tls)
 
 (defvar tls-starttls-switches
-  '(("gnutls-cli" "-s")
-    ("openssl" "-starttls imap"))
+  '(("openssl" "-starttls imap"))
   "Alist of programs and the switches necessary to get starttls behaviour.")
 
-(defcustom tls-program '("gnutls-cli %s -p %p %h"
-			 "gnutls-cli %s -p %p %h --protocols ssl3"
+(defcustom tls-program '("gnutls-cli --insecure -p %p %h"
+			 "gnutls-cli --insecure -p %p %h --protocols ssl3"
 			 "openssl s_client %s -connect %h:%p -no_ssl2 -ign_eof")
   "List of strings containing commands to start TLS stream to a host.
 Each entry in the list is tried until a connection is successful.