structure Mail :> MAIL =
struct
-fun writeToLog s = ignore (OS.Process.system "klist >/tmp/haha")
+fun writeToLog s = ()
(*let
val outf = TextIO.openAppend (Init.scratchDir ^ "/log/mail.log")
in
fun mclose ses = Unix.reap ses
+(*type session = unit
+
+fun mopen () = ()
+
+fun mwrite ((), s) = print s
+
+fun mclose () = OS.Process.success*)
+
end