use Bugzilla::Hook;
use Bugzilla::MIME;
+use Encode qw();
use Date::Parse;
use Date::Format;
use Scalar::Util qw(blessed);
encoding => 'quoted-printable',
},
body_str => $msg_text,
+ encode_check => Encode::FB_DEFAULT
)
);
if ($user->setting('email_format') eq 'html') {
encoding => 'quoted-printable',
},
body_str => $msg_html,
+ encode_check => Encode::FB_DEFAULT
);
}
use parent qw(Email::MIME);
sub new {
- my ($class, $msg) = @_;
+ my ($class, $msg, $args) = @_;
state $use_utf8 = Bugzilla->params->{'utf8'};
# Template-Toolkit trims trailing newlines, which is problematic when
# you're running on. See http://perldoc.perl.org/perlport.html#Newlines
$msg =~ s/(?:\015+)?\012/\015\012/msg;
- return $class->SUPER::new($msg);
+ return $class->SUPER::new($msg, $args);
}
sub as_string {
=head1 SYNOPSIS
use Bugzilla::MIME;
- my $email = Bugzilla::MIME->new($message);
+ my $email = Bugzilla::MIME->new($message, $args);
=head1 DESCRIPTION
use Bugzilla::Util;
use Bugzilla::User;
+use Encode qw();
use Date::Format qw(time2str);
use Email::Sender::Simple qw(sendmail);
encoding => 'quoted-printable',
},
body_str => $msg_text,
+ encode_check => Encode::FB_DEFAULT
)
);
if ($templates->{html} && $email_format eq 'html') {
encoding => 'quoted-printable',
},
body_str => $msg_html,
+ encode_check => Encode::FB_DEFAULT
);
}