remove 'Content-length' and 'Lines' fields from multipart messages

Hi List,

With the following code I am trying to send a multipart message. 
Unfortunately the receiver is very strict on receiving such messages. 
Therefor some (at first sight) strange options are chosen here.

[code]

  	# create headers
         my %headers;
         $headers{'From'} = $from;
         $headers{'To'} = $recipient;
         $headers{'Subject'} = $subject;
         my $head = Mail::Message::Head->build(%headers);



         # create body with text (first part of multipart message)
         my $body = Mail::Message::Body::Lines->new
                 ( data => \@text
                 );


         # create disposistion field for attachment
         my $disp = Mail::Message::Field->new
                 ('Content-Disposition'  => 'attachment'
                 , filename              => $file
                 );


         # create attachment (is a also a body and second part of multipart
message)
         my $att = Mail::Message::Body::Lines->new
                 ( file                  => $fullPath
                 #, mime_type            => 'text/plain'
                 , mime_type             => 'application/octet-stream'
                 , disposition           => $disp
                 );

         $att = $att->encode
                 ( transfer_encoding     => 'base64'
                 );



         # attach att to first body (ie create a multipart)
         my $multipartBody = $body->attach($att);


         $multipartBody->boundary('ThisIsABoundaryLine');

         my $msg = Mail::Message->buildFromBody
                 ( $multipartBody
                 , $head
                 );



         $msg->print;

         $msg->send;

[/code]

Unfortunately two fields are added to the multipart body when the 
attachment gets attached. Those fields are 'Content-length' and 'Lines'. 
In my case the sender doesn't know how to handle those and refuses the 
message. I would like to remove those fields before I sent the message. 
The method I use is to use the removeFields function on each body->head. 
Since each body has a header with those 2 fields in it. Find the code 
below:

[code]
 	# remove 'Lines' and 'Content-Length' from message
         $msg->head->removeFields('Lines','Content-Length');


         # remove 'Lines' and 'Content-Length' from each part
         foreach my $part ($msg->parts) {
                 $part->head->removeFields('Lines','Content-Length');
         }

[/code]


Hope it helps.

greetz,

Koen



-----------------------
Economists state their GNP growth projections to the nearest tenth of a
percentage point to prove they have a sense of humor.
 		-- Edgar R. Fiedler