From: Richard W.M. Jones <rjones@redhat.com>
Date: Fri, 4 Oct 2013 07:29:14 +0000 (+0100)
Subject: mailx: Fix missing to address on command line.
X-Git-Tag: 0.2~8
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=a0b4f0aabdf75f51aba42aaf3a129df2cec44ab3;p=goaljobs.git

mailx: Fix missing to address on command line.
---

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"