val spec : unit ‑> (?retry_intervals:Async_smtp.Smtp_envelope.Retry_interval.t list ‑> Async_smtp.Smtp_spool.Send_info.t ‑> 'a, 'a) Common.Command.Spec.t
val dispatch : ?retry_intervals:Async_smtp.Smtp_envelope.Retry_interval.t list ‑> Async_smtp.Smtp_spool.Send_info.t ‑> Async.Rpc.Connection.t ‑> unit Async.Deferred.t