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

[ruz at bestpractical.com]

Author: ruz
Date: Sun Jan 13 17:55:54 2008
New Revision: 10333

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

Log:
 r10157 at cubic-pc:  cubic | 2008-01-09 17:04:39 +0300
 * minor


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:54 2008
@@ -537,9 +537,10 @@
     unless ($self->TemplateObj->MIMEObj->head->get('Message-ID')) {
       # Get Message-ID for this txn
       my $msgid = "";
-      $msgid = $self->TransactionObj->Message->First->GetHeader("RT-Message-ID")
-        || $self->TransactionObj->Message->First->GetHeader("Message-ID")
-        if $self->TransactionObj->Message && $self->TransactionObj->Message->First;
+      if ( my $msg = $self->TransactionObj->Message->First ) {
+        $msgid = $msg->GetHeader("RT-Message-ID")
+            || $msg->GetHeader("Message-ID")
+      }
 
       # If there is one, and we can parse it, then base our Message-ID on it
       if ($msgid