MIME::Lite attachments encode

[Vladimir D Belousov]

Hallo all!
I'm using MIME::Lite to create multipart/mixed messages.
But I have the problem with attach() method -
I have already encoded attachments and do this:
use MIME::Lite;
...
sub create_message {
  my $self=shift;
  $MIME::Lite::AUTO_ENCODE=0;
  .....
    my $msg = MIME::Lite->new(.....);
  .....
  foreach my $part (@{$self->{attachments}}) {
         ## $self->{attachments} is a reference to array of hashes
         $msg->attach(
               Type     =>'image/gif',
               Encoding =>'base64',
               Name     => $part->{name},
               Disposition => 'inline',
               Data => $part->{body},  # This data already encoded
               );
  }
  return $msg->as_string;  # Another proc will send this letter
}
But in the result I have double encoded attachments...
As I can see in perldoc MIME::Lite,
     $MIME::Lite::AUTO_ENCODE
          If true, automatically choose the encoding from the content type.
          Default is true.
And as I understood, if $MIME::Lite::AUTO_ENCODE == false, the Data will 
not be encdoded automatically. Am I wrong?

I beg your pardon for my English :)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>