gentoo/dev-perl/mime-construct/files/mime-construct-add-date-header.patch
Maciej S. Szmigiero 42753958c9
dev-perl/mime-construct: add "Date" field to generated messages
Currently, mime-construct does not include the "Date" field in generated
messages.

The "Date" field is required according to the RFC 5322 and not every MTA or
SMTP client adds it when it is missing (for example mail-mta/msmtp does not
do it).

Mail clients often timestamp messages lacking this field as either
01.01.1970 or a date the message was first seen by a particular client
rather than as an actual posting date.

This issue was reported upstream a year ago but there was no response - the
software had last release in 2010 so it is probably no longer maintained.

That's why we have to add the missing field ourselves.

Gentoo-Bug: https://bugs.gentoo.org/583882
Package-Manager: Portage-2.3.3, Repoman-2.3.1
Closes: https://github.com/gentoo/gentoo/pull/3408
2017-01-17 09:52:43 +13:00

19 lines
634 B
Diff

--- 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 '';