: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.