Revision 23141207
Von Moritz Bunkus vor etwa 18 Jahren hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 55 | 55 |
for (my $i = 0; $i < length($text); $i++) {
|
| 56 | 56 |
my $char = ord(substr($text, $i, 1)); |
| 57 | 57 |
|
| 58 |
if (($char < 33) || ($char > 127) ||
|
|
| 59 |
($char == ord('?')) || ($char == ord(' '))) {
|
|
| 58 |
if (($char < 32) || ($char > 127) ||
|
|
| 59 |
($char == ord('?')) || ($char == ord('_'))) {
|
|
| 60 | 60 |
if ($chars_left < 5) {
|
| 61 | 61 |
$new_text .= "?=\n $q_start"; |
| 62 | 62 |
$chars_left = 75 - $l_start; |
| 63 | 63 |
} |
| 64 | 64 |
|
| 65 |
$new_text .= sprintf("=%02x", $char);
|
|
| 65 |
$new_text .= sprintf("=%02X", $char);
|
|
| 66 | 66 |
$chars_left -= 3; |
| 67 | 67 |
|
| 68 | 68 |
} else {
|
| 69 |
$char = ord('_') if ($char == ord(' '));
|
|
| 69 | 70 |
if ($chars_left < 5) {
|
| 70 | 71 |
$new_text .= "?=\n $q_start"; |
| 71 | 72 |
$chars_left = 75 - $l_start; |
Auch abrufbar als: Unified diff
MIME-Quoting der Betreff-Zeile: Leerzeichen als "_" ausgaben; "_" in Hex quoten (siehe RFC 2047 4.2); Hex-Zahlen mit Grossbuchstaben.