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

[kevinr at bestpractical.com]

Author: kevinr
Date: Wed Aug 23 17:44:22 2006
New Revision: 5802

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:
 r27527 at sad-girl-in-snow:  kevinr | 2006-08-23 17:42:09 -0400
 * We need to append a colon to non-standard headers so MIME::Entity will
   include them.


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	Wed Aug 23 17:44:22 2006
@@ -238,18 +238,22 @@
         @_
     );
 
+    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",
         From                   => $args{'From'},
         Bcc                    => $args{'Bcc'},
         To                     => $args{'To'},
         Subject                => $args{'Subject'},
-        Precedence             => 'bulk',
-        'X-RT-Loop-Prevention' => $RT::rtname,
+        'Precedence:'             => 'bulk',
+        'X-RT-Loop-Prevention:' => $RT::rtname,
+        'In-Reply-To:'          => $message_id,
     );
 
     $entity->attach( Data => $args{'Explanation'} . "\n" );

Modified: rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/Interface/Web.pm	Wed Aug 23 17:44:22 2006
@@ -625,7 +625,7 @@
             Subject => $args{'Subject'} || "",
             From    => $args{'From'},
             Cc      => $args{'Cc'},
-            Charset => 'utf8',
+            'Charset:' => 'utf8',
             Data    => [ $args{'Body'} ]
         );
     }