+sub add_text_body_short {
+ my ($enc, $part, $part_nr, $full_pfx) = @_;
+ my $n = 0;
+ my $s = ascii_html($enc->decode($part->body));
+ $s =~ s!^((?:(?:>[^\n]*)\n)+)!
+ my $cur = $1;
+ my @lines = split(/\n/, $cur);
+ if (@lines > MAX_INLINE_QUOTED) {
+ # show a short snippet of quoted text
+ $cur = join(' ', @lines);
+ $cur =~ s/^>\s*//;
+
+ my @sum = split(/\s+/, $cur);
+ $cur = '';
+ do {
+ my $tmp = shift(@sum);
+ my $len = length($tmp) + length($cur);
+ if ($len > MAX_TRUNC_LEN) {
+ @sum = ();
+ } else {
+ $cur .= $tmp . ' ';
+ }
+ } while (@sum && length($cur) < MAX_TRUNC_LEN);
+ $cur =~ s/ \z/ .../;
+ "> <<a href=\"${full_pfx}#q${part_nr}_" . $n++ .
+ "\">$cur<\/a>>\n";
+ } else {
+ $cur;
+ }
+ !emg;
+ $s;
+}