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

[jesse at bestpractical.com]

Author: jesse
Date: Fri Oct  6 12:42:45 2006
New Revision: 6172

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

Log:
 r28065 at 101:  jesse | 2006-10-06 12:42:52 -0400
 * After RT 3.6.1, we broke the ""send an error message" email routines to require that they have an incoming message. Fixed now
     - Spotted by Jason A. Diegmueller
 


Modified: rt/branches/3.6-RELEASE/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/Interface/Email.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/Interface/Email.pm	Fri Oct  6 12:42:45 2006
@@ -238,12 +238,11 @@
         @_
     );
 
-    my $message_id = $args{'MIMEObj'}->head->get('Message-Id');
+    
     $RT::Logger->log(
         level   => $args{'LogLevel'},
         message => $args{'Explanation'}
     );
-    $RT::Logger->debug("Message-ID: $message_id");
     # the colons are necessary to make ->build include non-standard headers
     my $entity = MIME::Entity->build(
         Type                   => "multipart/mixed",
@@ -253,7 +252,7 @@
         Subject                => $args{'Subject'},
         'Precedence:'             => 'bulk',
         'X-RT-Loop-Prevention:' => $RT::rtname,
-        'In-Reply-To:'          => $message_id,
+        'In-Reply-To:'          => $args{'MIMEObj'} ? $args{'MIMEObj'}->head->get('Message-Id') : undef
     );
 
     $entity->attach( Data => $args{'Explanation'} . "\n" );