[Rt-commit] r5518 - in rt/branches/3.6-RELEASE: .

[robert at bestpractical.com]

Author: robert
Date: Mon Jul  3 21:30:50 2006
New Revision: 5518

Modified:
   rt/branches/3.6-RELEASE/   (props changed)
   rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm

Log:
 r5599 at bear:  rspier | 2006-07-03 18:03:10 -0700
 Add a Date: header to outbound email messages


Modified: rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/Action/SendEmail.pm	Mon Jul  3 21:30:50 2006
@@ -56,6 +56,7 @@
 
 use RT::EmailParser;
 use Mail::Address;
+use POSIX qw(strftime);
 
 =head1 NAME
 
@@ -250,6 +251,10 @@
         return (1);
     }
 
+    unless ($MIMEObj->head->get('Date')) {
+      $self->SetHeader('Date',
+                       strftime('%a, %d %b %Y %H:%M:%S %z', localtime()));
+    }
 
     if ( $RT::MailCommand eq 'sendmailpipe' ) {
         eval {