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