X-Git-Url: https://git.hcoop.net/bpt/portal.git/blobdiff_plain/ba5de264ea4e91c438b3cb6793dffd5cdaadacb6..eafe3d5228bb595c05c39539b60cca4434672daf:/mail.sml

diff --git a/mail.sml b/mail.sml
index fc370b8..d0e2d27 100644
--- a/mail.sml
+++ b/mail.sml
@@ -1,7 +1,7 @@
 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
@@ -19,4 +19,12 @@ 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