package Sources::Mime;

use strict;
use warnings;

use MIME::Lite;

use Sources::Vars;
use Sources::Mail;

use vars qw(@ISA);


@ISA = qw( MIME::Lite );

sub as_smtpstring
{
    my ($self) = @_;
    my $buf = [];
    my $io = (wrap MIME::Lite::IO_ScalarArray $buf);

    $self->replace('Message-ID' => Sources::Mail::build_message_id($self->get('From')));
    $self->replace('X-Mailer' => Sources::Vars::X_MAILER);
    $self->attr('MIME-Version' => '1.0');

    ### Create a safe head:
    my @fields = grep { $_->[0] ne 'bcc' } @{$self->fields};
    my $header = $self->fields_as_string(\@fields);

    $io->print($header, "\n");
    $self->print_body($io);

    join '', @$buf;
}