sig
exception Protocol_error
exception Authentication_error
exception Transient_error of int * string
exception Permanent_error of int * string
val tcp_port : int
class client :
Netchannels.in_obj_channel ->
Netchannels.out_obj_channel ->
object
method auth :
Netsys_sasl.sasl_mechanism ->
string ->
string ->
Netsys_sasl.credentials -> (string * string * bool) list -> unit
method authenticated : bool
method close : unit -> unit
method command : string -> int * string list
method data : Netchannels.in_obj_channel -> unit
method expn : string -> string list option
method gssapi_props : Netsys_gssapi.client_props option
method helo : ?host:string -> unit -> string list
method helo_response : string list
method help : unit -> string list
method mail : string -> unit
method noop : unit -> unit
method quit : unit -> unit
method rcpt : string -> unit
method rset : unit -> unit
method starttls :
peer_name:string option -> Netsys_crypto_types.tls_config -> unit
method tls_endpoint : Netsys_crypto_types.tls_endpoint option
method tls_session_props : Nettls_support.tls_session_props option
end
class connect :
?proxy:#Uq_engines.client_endpoint_connector ->
Uq_engines.connect_address -> float -> client
val auth_mechanisms : string list -> string list
val authenticate :
?host:string ->
?tls_config:Netsys_crypto_types.tls_config ->
?tls_required:bool ->
?tls_peer:string ->
?sasl_mechs:Netsys_sasl.sasl_mechanism list ->
?sasl_params:(string * string * bool) list ->
?user:string ->
?authz:string -> ?creds:Netsys_sasl.credentials -> Netsmtp.client -> unit
val sendmail : Netsmtp.client -> Netmime.complex_mime_message -> unit
module Debug : sig val enable : bool Pervasives.ref end
end