[Rt-commit] r3942 - rt/branches/3.5-TESTING/lib/RT/Action

[ruz at bestpractical.com]

Author: ruz
Date: Fri Oct  7 12:40:57 2005
New Revision: 3942

Modified:
   rt/branches/3.5-TESTING/lib/RT/Action/SendEmail.pm
Log:
* get rid of uninit warnings

Modified: rt/branches/3.5-TESTING/lib/RT/Action/SendEmail.pm
==============================================================================
--- rt/branches/3.5-TESTING/lib/RT/Action/SendEmail.pm	(original)
+++ rt/branches/3.5-TESTING/lib/RT/Action/SendEmail.pm	Fri Oct  7 12:40:57 2005
@@ -284,13 +284,12 @@
         }
     }
 
-    my $success =
-      ( $msgid
-      . " sent To: "
-      . $MIMEObj->head->get('To') . " Cc: "
-      . $MIMEObj->head->get('Cc') . " Bcc: "
-      . $MIMEObj->head->get('Bcc') );
-    $success =~ s/\n//gi;
+    my $success = $msgid . " sent ";
+    foreach( qw(To Cc Bcc) ) {
+        my $recipients = $MIMEObj->head->get($_);
+        $success .= " $_: ". $recipients if $recipients;
+    }
+    $success =~ s/\n//g;
 
     $self->RecordOutgoingMailTransaction($MIMEObj) if ($RT::RecordOutgoingEmail);