sig
  val open_pop : string -> string -> string -> int
  val read_pop : int -> int
  val close_pop : int -> unit
  val message_subject : unit -> string
  val message_body : unit -> string
  val message_sender : unit -> string
  val message_date : unit -> float
  val message_header : unit -> string
  val message_save : unit -> string
  val message_remove : unit -> unit
  val open_message : string -> string -> string -> unit
  val message_write : string -> unit
  val message_htmlwrite : Html.t -> unit
  val message_urgent : unit -> unit
  val message_file : string -> string -> unit
  val close_message : unit -> unit
end