Sendmail_tls (p.sendmail.0.1.0.doc.sendmail.tls.Sendmail

module Send_mail_tls_p : sig ... end

module Send_mail_tls_s : sig ... end

val src : Logs.src

module State : sig ... end

module Log : Logs.LOG

val ok : 'a -> 'b -> ('a * 'b, 'c) result

val ($) : ('a -> 'b) -> 'a -> 'b

val transition : 
  's Send_mail_tls_s.t ->
  State.event ->
  (State.action * 's Send_mail_tls_s.t,
    Send_mail_tls_p.error * 's Send_mail_tls_s.t)
    result

type error = Send_mail_tls_p.error

val pp_error : Format.formatter -> Send_mail_tls_p.error -> unit

type 'x state = 'x Send_mail_tls_s.t

type 'x t = 'x State.t

val domain_to_domain_name : 
  Colombe.Domain.t ->
  ([ `host ] Domain_name.t, [> `Msg of string ]) Rresult.result

val make_state : 
  ?logger:(module Logs.LOG) ->
  ?encoding:Mime.encoding ->
  domain:Colombe.Domain.t ->
  from:Colombe.Reverse_path.t ->
  recipients:Colombe.Forward_path.t list ->
  Auth.authenticator option ->
  (string * int * int) Sendmail.stream ->
  Tls.Config.client ->
  ('a Send_mail_tls_s.t, [> `Msg of string ]) Rresult.result

val make : 'a State.state -> 'a State.t

val run : 
  's 'flow. 's Colombe.Sigs.impl ->
  ('flow, 's) Colombe.Sigs.rdwr ->
  'flow ->
  'x t ->
  Colombe.State.ctx ->
  (('x state, error) result, 's) Colombe.Sigs.io