Convert Usevote to UTF-8.
Signed-off-by: Thomas Hochstein <thh@thh.name>
This commit is contained in:
parent
162c5aefda
commit
a60ea76fe8
8 changed files with 31 additions and 7 deletions
|
|
@ -3,6 +3,8 @@
|
|||
|
||||
package UVsendmail;
|
||||
|
||||
use utf8;
|
||||
use open qw(:std :utf8);
|
||||
use strict;
|
||||
use UVconfig;
|
||||
use UVtemplate;
|
||||
|
|
@ -239,7 +241,7 @@ sub mimeencode {
|
|||
$word =~ s/\n//g;
|
||||
my $encword;
|
||||
if ($word =~ /[\x7F-\xFF]/) {
|
||||
$encword = MIME::Words::encode_mimeword($word, 'Q', 'ISO-8859-1');
|
||||
$encword = MIME::Words::encode_mimeword($word, 'Q', 'UTF-8');
|
||||
} elsif (length($word) > 75) {
|
||||
$encword = MIME::Words::encode_mimeword($word, 'Q', 'us-ascii');
|
||||
} else {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue