sig
type state = [ `Authorization | `Transaction | `Update ]
exception Protocol_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 dele : msgno:int -> unit
method list : ?msgno:int -> unit -> (int, int * string) 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 top :
?lines:int -> msgno:int -> unit -> Netchannels.in_obj_channel
method uidl : ?msgno:int -> unit -> (int, string) Hashtbl.t
method user : user:string -> unit
end
end
