svn commit: rev 6503 - incubator/spamassassin/trunk/lib/Mail/SpamAssassin

[fe...@apache.org]

Author: felicity
Date: Wed Feb  4 19:19:20 2004
New Revision: 6503

Modified:
   incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
Log:
don't bother looking for uuencoded parts, since we don't use that knowledge for anything

Modified: incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm
==============================================================================
--- incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm	(original)
+++ incubator/spamassassin/trunk/lib/Mail/SpamAssassin/PerMsgStatus.pm	Wed Feb  4 19:19:20 2004
@@ -937,25 +937,10 @@
       next;
     }
 
-    # Hunt down uuencoded bits ...
-    my $uu_region = 0;
     $p->decode(); # decode this part
     push(@{$self->{decoded_body_text_array}}, "\n") if ( @{$self->{decoded_body_text_array}} );
-    foreach my $line ( @{$p->{'decoded'}} ) {
-      push(@{$self->{decoded_body_text_array}}, $self->split_into_array_of_short_lines($line));
-
-      # look for uuencoded text
-      if ($uu_region == 0 && $line =~ /^begin [0-7]{3} .*/) {
-        $uu_region = 1;
-      }
-      elsif ($uu_region == 1 && $line =~ /^[\x21-\x60]{1,61}$/) {
-        $uu_region = 2;
-      }
-      elsif ($uu_region == 2 && $line =~ /^end$/) {
-        $self->{found_encoding_uuencode} = 1;
-        last;
-      }
-    }
+    push(@{$self->{decoded_body_text_array}},
+      map { $self->split_into_array_of_short_lines($_) } @{$p->{'decoded'}} );
   }
 
   return $self->{decoded_body_text_array};