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

kevinr at bestpractical.com kevinr at bestpractical.com
Fri Oct 20 00:05:03 EDT 2006


Author: kevinr
Date: Fri Oct 20 00:05:03 2006
New Revision: 6240

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

Log:


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 20 00:05:03 2006
@@ -238,11 +238,12 @@
         @_
     );
 
-    
+    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",
@@ -252,7 +253,7 @@
         Subject                => $args{'Subject'},
         'Precedence:'             => 'bulk',
         'X-RT-Loop-Prevention:' => $RT::rtname,
-        'In-Reply-To:'          => $args{'MIMEObj'} ? $args{'MIMEObj'}->head->get('Message-Id') : undef
+        'In-Reply-To:'          => $message_id,
     );
 
     $entity->attach( Data => $args{'Explanation'} . "\n" );

Modified: rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm
==============================================================================


More information about the Rt-commit mailing list