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

[ruz at bestpractical.com]

Author: ruz
Date: Sun Jan 13 17:55:33 2008
New Revision: 10332

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

Log:
 r10156 at cubic-pc:  cubic | 2008-01-09 17:04:19 +0300
 * use RT::Interface::Email::GenMessageId() function


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Action/SendEmail.pm	Sun Jan 13 17:55:33 2008
@@ -551,17 +551,13 @@
           and $2 == $self->TicketObj->id) {
         $self->SetHeader( "Message-ID" => $msgid );
       } else {
-        $self->SetHeader( 'Message-ID',
-            "<rt-"
-            . $RT::VERSION . "-"
-            . $$ . "-"
-            . CORE::time() . "-"
-            . int(rand(2000)) . '.'
-            . $self->TicketObj->id . "-"
-            . $self->ScripObj->id . "-"  # Scrip
-            . $self->ScripActionObj->{_Message_ID} . "@"  # Email sent
-            . RT->Config->Get('Organization')
-            . ">" );
+        $self->SetHeader(
+            'Message-ID' => RT::Interface::Email::GenMessageId(
+                Ticket => $self->TicketObj,
+                Scrip => $self->ScripObj,
+                ScripAction => $self->ScripActionObj
+            ),
+        );
       }
     }