structure Mail :> MAIL =
struct
-fun writeToLog s =
- let
- val outf = TextIO.openAppend "/home/hcoop/mail.log"
+fun writeToLog s = ()
+ (*let
+ val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
in
TextIO.output (outf, s);
TextIO.closeOut outf
- end
+ end*)
type session = (TextIO.instream, TextIO.outstream) Unix.proc