-sub new {
- $main::lxdebug->enter_sub();
-
- my ($type) = @_;
- my $self = {};
-
- $main::lxdebug->leave_sub();
-
- bless $self, $type;
-}
-
-sub mime_quote_text {
- $main::lxdebug->enter_sub();
-
- my ($self, $text, $chars_left) = @_;
-
- my $q_start = "=?$self->{charset}?Q?";
- my $l_start = length($q_start);
-
- my $new_text = "$q_start";
- $chars_left -= $l_start;
-
- for (my $i = 0; $i < length($text); $i++) {
- my $char = ord(substr($text, $i, 1));