diff options
author | Eric Wong <e@80x24.org> | 2014-05-04 01:38:16 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2014-05-04 02:52:30 +0000 |
commit | ec1d0105e6f758ced83902b92b25df0c4b75613d (patch) | |
tree | c24a45495e743a6890feaa91db5893838e03fa7a /lib/PublicInbox/View.pm | |
parent | a1331e538ed8fff6e9554de553a2869954f54167 (diff) | |
download | public-inbox-ec1d0105e6f758ced83902b92b25df0c4b75613d.tar.gz |
Screen space is precious, and we do not need it in the abbreviated view.
Diffstat (limited to 'lib/PublicInbox/View.pm')
-rw-r--r-- | lib/PublicInbox/View.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm index 52e8f0b2..674d7b7c 100644 --- a/lib/PublicInbox/View.pm +++ b/lib/PublicInbox/View.pm @@ -8,8 +8,11 @@ use URI::Escape qw/uri_escape_utf8/; use Encode qw/find_encoding/; use Encode::MIME::Header; use Email::MIME::ContentType qw/parse_content_type/; + +# TODO: make these constants tunable use constant MAX_INLINE_QUOTED => 5; use constant MAX_TRUNC_LEN => 72; + *ascii_html = *PublicInbox::Hval::ascii_html; my $enc_utf8 = find_encoding('UTF-8'); @@ -92,6 +95,7 @@ sub add_text_body_short { my ($enc, $part, $part_nr, $full_pfx) = @_; my $n = 0; my $s = ascii_html($enc->decode($part->body)); + # TODO: fold the "so-and-so wrote:" attribute line here, too: $s =~ s!^((?:(?:>[^\n]*)\n)+)! my $cur = $1; my @lines = split(/\n/, $cur); |