[hcoop/portal.git] / mail.sml

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
Commit	Line	Data
edeb626e AC	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