val spec : unit ‑> (msgids:Async_smtp.Smtp_spool.Message_id.t list ‑> 'a, 'a) Common.Command.Spec.t
val dispatch : msgids:Async_smtp.Smtp_spool.Message_id.t list ‑> Async.Rpc.Connection.t ‑> unit Async.Deferred.t