mail.sml

   1 structure Mail :> MAIL =
   2 struct
   3
   4 type session = (TextIO.instream, TextIO.outstream) Unix.proc
   5
   6 fun mopen () = Unix.execute ("/usr/sbin/exim4", ["-t"])
   7
   8 fun mwrite (ses, s) = TextIO.output (Unix.textOutstreamOf ses, s)
   9
  10 fun mclose ses = Unix.reap ses
  11
  12 end