1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- a/mime-construct 2012-10-07 21:01:11.849644407 +0200
+++ b/mime-construct 2015-02-24 00:00:15.843791068 +0100
@@ -28,6 +28,7 @@
# - continue long header lines I construct
use Proc::WaitStat qw(close_die);
+use Email::Date::Format qw(email_date);
(my $Me = $0) =~ s-.*/--;
my # new line required for makemaker
@@ -491,6 +492,7 @@
push @output, cont "To: ", join(", ", @to), "\n" if @to;
push @output, cont "Cc: ", join(", ", @cc), "\n" if @cc;
+ push @output, cont "Date: ", email_date, "\n";
push @output, cont "Subject: $subject\n" if $subject ne '';
push @output, $header if $header ne '';
|