diff options
Diffstat (limited to 'lib/stream.ml')
| -rw-r--r-- | lib/stream.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/stream.ml b/lib/stream.ml index 451f9b5..e2fe707 100644 --- a/lib/stream.ml +++ b/lib/stream.ml @@ -98,7 +98,7 @@ let negotiate feature portal {starttls; sasl; _} : unit Lwt.t = in match feature with | Mandatory STARTTLS -> Starttls.upgrade portal - | Optional STARTTLS -> if starttls.prefer_starttls + | Optional STARTTLS -> if starttls.prefer then Starttls.upgrade portal else Lwt.return_unit | f -> unwrap f |> indifferent |