Re: Deprecate TLS1.0 support in emacs

[Andreas Schwab]

On Jul 12 2017, Robert Pluim <address@hidden> wrote:

> @@ -231,6 +231,27 @@ nsm-check-protocol
>            host port protocol)))
>        (delete-process process)
>        nil)
> +     ((and protocol
> +        (string-match "TLS1.0" protocol)
> +        (not (memq :tls1.0 (plist-get settings :conditions)))
> +        (not
> +         (nsm-query
> +          host port status :tls1.0
> +          "The connection to %s:%s uses the %s protocol, which is unsafe."
> +          host port protocol)))
> +      (delete-process process)
> +      nil)
> +     ((and protocol
> +           (eq network-security-level 'paranoid)
> +        (string-match "TLS1.1" protocol)

Why string-match?

Andreas.

-- 
Andreas Schwab, SUSE Labs, address@hidden
GPG Key fingerprint = 0196 BAD8 1CE9 1970 F4BE  1748 E4D4 88E3 0EEA B9D7
"And now for something completely different."