use Debbugs::Config qw(:config);
use Params::Validate qw(:types validate_with);
use Encode qw(encode is_utf8);
+use Debbugs::UTF8 qw(encode_utf8_safely);
use Debbugs::Packages;
if ($param{encode_headers}) {
$param{message} = encode_headers($param{message});
}
- eval {
- if (is_utf8($param{message})) {
- $param{message} = encode('utf8',$param{message});
- }
- };
# First, try to send the message as is.
eval {
my ($header,$body) = split /\n\n/, $message, 2;
$header = encode_rfc1522($header);
- return $header . qq(\n\n). $body;
+ return $header . qq(\n\n). encode_utf8_safely($body);
}
=head2 rfc822_date