[Rt-commit] r10331 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Sun Jan 13 17:55:18 2008
New Revision: 10331

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm

Log:
 r10155 at cubic-pc:  cubic | 2008-01-09 17:03:20 +0300
 * use SetInReplyTo() function from InReplyTo


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Web.pm	Sun Jan 13 17:55:18 2008
@@ -577,15 +577,8 @@
         $old_txn = $args{TicketObj}->Transactions->First();
     }
 
-    if ( $old_txn->Message and my $msg = $old_txn->Message->First ) {
-        my @in_reply_to = split(/\s+/m, $msg->GetHeader('In-Reply-To') || '');  
-        my @references = split(/\s+/m, $msg->GetHeader('References') || '' );  
-        my @msgid = split(/\s+/m, $msg->GetHeader('Message-ID') || '');
-        #XXX: custom header should begin with X- otherwise is violation of the standard
-        my @rtmsgid = split(/\s+/m, $msg->GetHeader('RT-Message-ID') || ''); 
-
-        $Message->head->replace( 'In-Reply-To', join(' ', @rtmsgid ? @rtmsgid : @msgid));
-        $Message->head->replace( 'References', join(' ', @references, @msgid, @rtmsgid));
+    if ( my $msg = $old_txn->Message->First ) {
+        RT::Interface::Email::SetInReplyTo( Message => $Message, InReplyTo => $msg );
     }
 
     if ( $args{ARGSRef}->{'UpdateAttachments'} ) {