From f280595f9be2f48ad71504b6977454a216a7734d Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Tue, 6 Nov 2012 22:10:08 -0500 Subject: [PATCH] Supply the "to" address to sendmail on the commandline. --- src/Mail.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Mail.hs b/src/Mail.hs index 2e86a20..c54255a 100644 --- a/src/Mail.hs +++ b/src/Mail.hs @@ -69,7 +69,8 @@ rfc822_now = do sendmail :: FilePath -> Message -> IO (String, String, ExitCode) sendmail sendmail_path message = do let sendmail_args = ["-f", - (from message)] + (from message), + (to message)] (inh, outh, errh, ph) <- runInteractiveProcess sendmail_path sendmail_args Nothing Nothing -- 2.44.2