- (when (and (elpher-address-use-tls-p address)
- (not elpher-use-tls)
- (gnutls-available-p))
- (setq elpher-use-tls t)
- (message "Engaging TLS mode."))
+ (when (elpher-address-use-tls-p address)
+ (if (gnutls-available-p)
+ (when (not elpher-use-tls)
+ (setq elpher-use-tls t)
+ (message "Engaging TLS mode."))
+ (error "Cannot retrieve TLS selector: GnuTLS not available.")))