mailx: Fix missing to address on command line.

[goaljobs.git] / goaljobs.ml

diff --git a/goaljobs.ml b/goaljobs.ml
index 9688a9c..f3d27b7 100644 (file)
--- a/goaljobs.ml
+++ b/goaljobs.ml
@@ -421,6 +421,7 @@ let mailto ?from ~subject ?(attach = []) to_ =
   List.iter (
     fun a -> cmd := !cmd ^ " -a " ^ quote a
   ) attach;
+  cmd := !cmd ^ " " ^ quote to_;
   if Sys.command !cmd <> 0 then
     goal_failed "mailto: could not send email"