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

[ruz at bestpractical.com]

Author: ruz
Date: Sun Jan 13 17:54:29 2008
New Revision: 10327

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

Log:
 r10151 at cubic-pc:  cubic | 2008-01-09 16:47:41 +0300
 * use GenMessageId


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:54:29 2008
@@ -564,17 +564,11 @@
         Type    => $args{ARGSRef}->{'UpdateContentType'},
     );
 
-    $Message->head->add( 'Message-ID' => 
-          "<rt-"
-          . $RT::VERSION . "-"
-          . $$ . "-"
-          . CORE::time() . "-"
-          . int(rand(2000)) . "."
-          . $args{'TicketObj'}->id . "-"
-          . "0" . "-"  # Scrip
-          . "0" . "@"  # Email sent
-              . RT->Config->Get('Organization')
-          . ">" );
+    $Message->head->add(
+        'Message-ID' => RT::Interface::Email::GenMessageId(
+            Ticket => $args{'TicketObj'},
+        )
+    );
     my $old_txn = RT::Transaction->new( $session{'CurrentUser'} );
     if ( $args{ARGSRef}->{'QuoteTransaction'} ) {
         $old_txn->Load( $args{ARGSRef}->{'QuoteTransaction'} );