@@ -, +, @@ --- basket/sendbasket.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) --- a/basket/sendbasket.pl +++ a/basket/sendbasket.pl @@ -19,7 +19,7 @@ use strict; use warnings; use CGI; -use Encode qw(encode); +use Encode qw(decode encode); use Carp; use Mail::Sendmail; @@ -131,8 +131,9 @@ if ( $email_add ) { } if ( $template_res =~ /(.*)/s ) { - $body = encode_qp($1); + $body = $1; $body =~ s|\n?(.*)\n?|$1|; + $body = encode("UTF-8", encode_qp(decode("UTF-8", $body))); } my $boundary = "====" . time() . "===="; --