[SACVS] CVS: spamassassin/lib/Mail/SpamAssassin MIME.pm,1.1,1.2

Update of /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin
In directory sc8-pr-cvs1:/tmp/cvs-serv2876/lib/Mail/SpamAssassin

Modified Files:
        MIME.pm 
Log Message:
a few updates for MIME parsing


Index: MIME.pm
===================================================================
RCS file: /cvsroot/spamassassin/spamassassin/lib/Mail/SpamAssassin/MIME.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -b -w -u -d -r1.1 -r1.2
--- MIME.pm     24 Sep 2003 06:18:38 -0000      1.1
+++ MIME.pm     24 Sep 2003 19:30:32 -0000      1.2
@@ -19,6 +19,11 @@
   my $self   = shift;
   my $rawkey = shift;
   my $key    = lc($rawkey);
+
+  # Trim whitespace off of the header keys
+  $key       =~ s/^\s+//;
+  $key       =~ s/\s+$//;
+
   if (@_) {
     my ( $decoded_value, $raw_value ) = @_;
     $raw_value = $decoded_value unless defined $raw_value;
@@ -80,12 +85,13 @@
 
 sub add_attachment {
   my $self = shift;
-  my ( $type, $lines, $name, $boundary ) = @_;
+  my ( $type, $lines, $name, $raw, $boundary ) = @_;
   push @{ $self->{attachments} },
     {
     filename => $name,
     type     => $type,
-    lines    => $lines,
+    decoded  => $lines,
+    raw      => $raw,
     boundary => $boundary,
     };
 }



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf