Module SmtpSource

Sourceval reply_line : string -> (int * bool * string) option
Sourceval reply : int -> string list -> string list
Sourcetype command =
  1. | Helo of string
  2. | Ehlo of string
  3. | Mail_from of string
  4. | Rcpt_to of string
  5. | Data
  6. | Rset
  7. | Noop
  8. | Quit
  9. | Unknown of string
Sourceval parse_command : string -> command
Sourceval command_to_string : command -> string
Sourcetype envelope = {
  1. sender : string;
  2. recipients : string list;
  3. text : string;
}
Sourceval envelope : sender:string -> Mail.t -> envelope
Sourceval stuff : string -> string list
Sourceval unstuff : string list -> string
Sourcetype client
Sourcetype outcome =
  1. | Sent of int * string list
  2. | Refused of string
Sourceval client : hello:string -> ?auth:(string * string) -> envelope list -> client
Sourceval plain : user:string -> password:string -> string
Sourceval step : client -> string -> client * string list
Sourceval finished : client -> (outcome list, string) result option