Supply the "to" address to sendmail on the commandline.
authorMichael Orlitzky <michael@orlitzky.com>
Wed, 7 Nov 2012 03:10:08 +0000 (22:10 -0500)
committerMichael Orlitzky <michael@orlitzky.com>
Wed, 7 Nov 2012 03:10:08 +0000 (22:10 -0500)
src/Mail.hs

index 2e86a204e003ceda90bfb32994fe4e83f386ad48..c54255a56a26a1e620a0f53f0d7386545ed55161 100644 (file)
@@ -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