use Encode qw/find_encoding/;
use Encode::MIME::Header;
use Email::MIME::ContentType qw/parse_content_type/;
+use constant MAX_INLINE_QUOTED => 5;
my $enc_utf8 = find_encoding('utf8');
my $enc_ascii = find_encoding('us-ascii');
my ($enc, $part, $part_nr, $full_pfx) = @_;
my $n = 0;
my $s = ascii_html($enc->decode($part->body));
- $s =~ s!^((?:(?:>[^\n]+)\n)+)!
+ $s =~ s!^((?:(?:>[^\n]*)\n)+)!
my $cur = $1;
my @lines = split(/\n/, $cur);
- if (@lines > 1) {
+ if (@lines > MAX_INLINE_QUOTED) {
# show a short snippet of quoted text
$cur = join(' ', @lines);
$cur =~ s/> ?//g;
$cur = '';
do {
$cur .= shift(@sum) . ' ';
- } while (@sum && length($cur) < 68);
+ } while (@sum && length($cur) < 64);
$cur=~ s/ \z/ .../;
"> <<a href=\"${full_pfx}#q${part_nr}_" . $n++ .
- "\">$cur<\/a>>";
+ "\">$cur<\/a>>\n";
} else {
$cur;
}
my ($enc, $part, $part_nr) = @_;
my $n = 0;
my $s = ascii_html($enc->decode($part->body));
- $s =~ s!^((?:(?:>[^\n]+)\n)+)!
+ $s =~ s!^((?:(?:>[^\n]*)\n)+)!
my $cur = $1;
my @lines = split(/\n/, $cur);
- if (@lines > 1) {
+ if (@lines > MAX_INLINE_QUOTED) {
"<a name=q${part_nr}_" . $n++ . ">$cur</a>";
} else {
$cur;