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

[jesse at bestpractical.com]

Author: jesse
Date: Fri Oct 20 12:37:05 2006
New Revision: 6243

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

Log:
 r28972 at 119:  jesse | 2006-10-20 12:36:50 -0400
 * Backed out the rest of kevin's accidental commit


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 12:37:05 2006
@@ -242,7 +242,6 @@
         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 +251,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" );