type session = (TextIO.instream, TextIO.outstream) Unix.proc
-fun mopen () = Unix.execute ("/usr/sbin/exim4", ["-t"])
+fun mopen () = Unix.execute ("/usr/sbin/sendmail", ["-t"])
before writeToLog "\nNEW MESSAGE\n"
fun mwrite (ses, s) = (TextIO.output (Unix.textOutstreamOf ses, s);
fun mclose ses = Unix.reap ses
+(*type session = unit
+
+fun mopen () = ()
+
+fun mwrite ((), s) = print s
+
+fun mclose () = OS.Process.success*)
+
end