structure Mail :> MAIL =
struct

type session = (TextIO.instream, TextIO.outstream) Unix.proc

fun mopen () = Unix.execute ("/usr/sbin/exim4", ["-t"])

fun mwrite (ses, s) = TextIO.output (Unix.textOutstreamOf ses, s)

fun mclose ses = Unix.reap ses

end