| 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 |