From a0b4f0aabdf75f51aba42aaf3a129df2cec44ab3 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Fri, 4 Oct 2013 08:29:14 +0100 Subject: [PATCH] mailx: Fix missing to address on command line. --- goaljobs.ml | 1 + 1 file changed, 1 insertion(+) diff --git a/goaljobs.ml b/goaljobs.ml index 9688a9c..f3d27b7 100644 --- 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" -- 1.8.3.1