cook: Fill in more email header fields

From git 1.7.0.5, "git imap-send" will require more email header
fields to be present.

1 files changed, 7 insertions, 0 deletions

diff --git a/cook b/cook
index 189fde1115..f04f9ee1b2 100755
--- a/cook
+++ b/cook
@@ -27,6 +27,13 @@ my $output_file;
 }
 
 my $title = "What's cooking in erlang/otp ($date)";
+my $from = `git config imap.user`;
+my $header_date = gmtime(time);
+chomp $from;
+print "From - $header_date\n";
+print "From: $from\n"
+    if $from ne '';
+print "Date: $header_date\n";
 print "To: erlang patches <erlang-patches\@erlang.org>\n";
 print "Subject: $title\n";
 print "X-dev-at: ", `git rev-parse dev`;