`sig
type state = [ `Authorization | `Transaction | `Update ]
exception Protocol_error
exception Authentication_error
exception Err_status of string
exception Bad_state
val tcp_port : int
class client :
Netchannels.in_obj_channel ->
Netchannels.out_obj_channel ->
object
method apop : user:string -> pass:string -> unit
method auth :
Netsys_sasl.sasl_mechanism ->
string ->
string ->
Netsys_sasl.credentials -> (string * string * bool) list -> unit
method capa : unit -> (string * string list) list
method capabilities : (string * string list) list
method close : unit -> unit
method dele : msgno:int -> unit
method gssapi_props : Netsys_gssapi.client_props option
method list :
?msgno:int -> unit -> (int, int * string) Stdlib.Hashtbl.t
method noop : unit -> unit
method pass : pass:string -> unit
method quit : unit -> unit
method retr : msgno:int -> Netchannels.in_obj_channel
method rset : unit -> unit
method stat : unit -> int * int * string
method state : Netpop.state
method stls :
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
method top :
?lines:int -> msgno:int -> unit -> Netchannels.in_obj_channel
method uidl : ?msgno:int -> unit -> (int, string) Stdlib.Hashtbl.t
method user : user:string -> unit
end
class connect :
?proxy:#Uq_engines.client_endpoint_connector ->
Uq_engines.connect_address -> float -> client
val authenticate :
?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 -> Netpop.client -> unit
module Debug : sig val enable : bool Stdlib.ref end
end`