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

[ruz at bestpractical.com]

Author: ruz
Date: Sat Jan 26 20:01:03 2008
New Revision: 10506

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

Log:
 r10452 at cubic-pc (orig r10418):  ruz | 2008-01-22 04:46:49 +0300
 * minor docs update


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachment_Overlay.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachment_Overlay.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Attachment_Overlay.pm	Sat Jan 26 20:01:03 2008
@@ -426,13 +426,13 @@
 
 =head2 Addresses
 
-Returns a hashref of all addresses related to this attachment.  
-The keys of the hash are C<From>,C<To>,C<Cc>, C<Bcc>, C<RT-Send-Cc> and C<RT-Send-Bcc>. The values are references to lists of Mail::Address objects.
-
+Returns a hashref of all addresses related to this attachment.
+The keys of the hash are C<From>, C<To>, C<Cc>, C<Bcc>, C<RT-Send-Cc>
+and C<RT-Send-Bcc>. The values are references to lists of
+L<Mail::Address> objects.
 
 =cut
 
-
 sub Addresses {
     my $self = shift;
 
@@ -446,8 +446,7 @@
         
         foreach my $AddrObj ( Mail::Address->parse( $line )) {
             my $address = $AddrObj->address;
-            my $user    = RT::User->new($RT::SystemUser);
-            $address = lc $user->CanonicalizeEmailAddress($address);
+            $address = lc RT::User->CanonicalizeEmailAddress($address);
             next if ( $current_user_address eq $address );
             next if ( $comment              eq $address );
             next if ( $correspond           eq $address );
@@ -544,7 +543,7 @@
         $value = '' unless defined $value;
         $value =~ s/\s+$//s;
         $value =~ s/\r+\n/\n /g;
-	$newheader .= "$tag: $value\n";
+        $newheader .= "$tag: $value\n";
     }
     return $self->__Set( Field => 'Headers', Value => $newheader);
 }