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

[ruz at bestpractical.com]

Author: ruz
Date: Tue Jan  9 15:54:41 2007
New Revision: 6722

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

Log:
 r4327 at cubic-pc:  cubic | 2007-01-06 23:30:33 +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	Tue Jan  9 15:54:41 2007
@@ -46,11 +46,11 @@
 # Portions Copyright 2000 Tobias Brox <tobix at cpan.org>
 
 package RT::Action::SendEmail;
-require RT::Action::Generic;
 
 use strict;
-use vars qw/@ISA/;
- at ISA = qw(RT::Action::Generic);
+use warnings;
+
+use base qw(RT::Action::Generic);
 
 use MIME::Words qw(encode_mimeword);
 
@@ -337,7 +337,6 @@
 sub RecordOutgoingMailTransaction {
     my $self = shift;
     my $MIMEObj = shift;
-           
 
     my @parts = $MIMEObj->parts;
     my @attachments;
@@ -540,10 +539,7 @@
     }
 
     # Let's grab the SquelchMailTo attribue and push those entries into the @blacklist
-    my @non_recipients = $self->TicketObj->SquelchMailTo;
-    foreach my $attribute (@non_recipients) {
-        push @blacklist, $attribute->Content;
-    }
+    push @blacklist, map $_->Content, $self->TicketObj->SquelchMailTo;
     push @blacklist, $self->SquelchMailTo;
 
     # Cycle through the people we're sending to and pull out anyone on the
@@ -553,7 +549,7 @@
         $person_to_yank =~ s/\s//g;
         foreach my $type (@types) {
             @{ $self->{$type} } =
-              grep ( !/^\Q$person_to_yank\E$/, @{ $self->{$type} } );
+              grep !/^\Q$person_to_yank\E$/, @{ $self->{$type} };
         }
     }
 }
@@ -710,7 +706,6 @@
 =cut
 
 sub SetReferencesHeaders {
-
     my $self = shift;
     my ( @in_reply_to, @references, @msgid );