X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FMailer.pm;h=453603ff1f234f0afb7555868a9e9ba025c1c43b;hb=8a3ba14876691dea5ebc6e92d37a2fd3b469dc07;hp=1a377f36719a627ae2530a8ddf2749151ed794cb;hpb=7734bb7c3e952c3351e454a82181f84dc27544bb;p=kivitendo-erp.git diff --git a/SL/Mailer.pm b/SL/Mailer.pm index 1a377f367..453603ff1 100644 --- a/SL/Mailer.pm +++ b/SL/Mailer.pm @@ -55,17 +55,18 @@ sub mime_quote_text { for (my $i = 0; $i < length($text); $i++) { my $char = ord(substr($text, $i, 1)); - if (($char < 33) || ($char > 127) || - ($char == ord('?')) || ($char == ord(' '))) { + if (($char < 32) || ($char > 127) || + ($char == ord('?')) || ($char == ord('_'))) { if ($chars_left < 5) { $new_text .= "?=\n $q_start"; $chars_left = 75 - $l_start; } - $new_text .= sprintf("=%02x", $char); + $new_text .= sprintf("=%02X", $char); $chars_left -= 3; } else { + $char = ord('_') if ($char == ord(' ')); if ($chars_left < 5) { $new_text .= "?=\n $q_start"; $chars_left = 75 - $l_start;