Supply the "to" address to sendmail on the commandline.

[dead/halcyon.git] / src / Mail.hs

diff --git a/src/Mail.hs b/src/Mail.hs
index 2e86a204e003ceda90bfb32994fe4e83f386ad48..c54255a56a26a1e620a0f53f0d7386545ed55161 100644 (file)
--- 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