Hi,
as I reported, I have problems with mails sent from Embperl::Mail and
Thunderbird/Netscape - mails are dated 1.1.1970. I don't know what deep
cause of the problem is butI fixed it simply by adding Date: header
manually. I guess more people will have similar problem so I propose
patch Embperl::Mail with something like (I use Date::Calc because I need
it anyway but as not to add addtional dependency):
... [ around line 130 ]...
($Second, $Minute, $Hour, $Day, $Month, $Year, $DoW) = localtime(time) ;
@month = qw( January February March April May June July August September
October November December );
@dow = qw( Monday Tuesday Wednesday Thursday Friday Saturday Sunday );
$MonthStr = substr($month[ $Month ], 0, 3);
$DoWStr = substr($dow[ $DoW ], 0, 3);
$Year += 1900;
$DateHeader = qq(Date: $DoWStr, $Day $MonthStr $Year $Hour:$Minute:$Second);
'Date' =~ join(':',@$headers) or push @headers, $DateHeader;
My Thunderbird shows Date header as
Date: Thu, 15 Sep 2005 08:41:06 +0200 (CEST)
I don't know what to do with the time zone so I just ignore it and hope
for the best ;-)
Could you comment and if it's OK - Gerald perhaps add it to the next
release? It's bother to add it to every single mail form manually...
- Robert
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
