sendmail :: FilePath -> Message -> IO (String, String, ExitCode)
sendmail sendmail_path message = do
let sendmail_args = ["-f",
sendmail :: FilePath -> Message -> IO (String, String, ExitCode)
sendmail sendmail_path message = do
let sendmail_args = ["-f",