sig
  exception Failure of string
  val sendmail : string Pervasives.ref
  val sendmail_args : string Pervasives.ref
  val send : unit -> Pervasives.out_channel
  val close : Pervasives.out_channel -> unit
  val send_mail :
    ?subject:string ->
    ?to_addr:string list ->
    ?cc:string list ->
    ?bcc:string list ->
    ?from:string ->
    ?content_type:string -> ?headers:(string * string) list -> string -> unit
end