view: trim git patches delimited by /^---$/

Patches are usually better viewed standalone and are difficult
to judge when nested.  So save precious vertical space in our
message index.

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 279433916ab488a6fe7979e1fbf9826c8f05aa9b..23cb369bedb3e18414f4c050990caa70275bfb36 100644 (file)
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -81,6 +81,7 @@ sub index_entry {
                my ($part) = @_;
                return if $part->subparts; # walk_parts already recurses
                my $enc = enc_for($part->content_type) || $enc_msg || $enc_utf8;
+               my $more = '';
 
                if ($part_nr > 0) {
                        my $fn = $part->filename;
@@ -96,13 +97,19 @@ sub index_entry {
                # Drop signatures
                $s =~ s/\n*-- \n.*\z//s;
 
+               # drop the remainder of git patches, they're usually better
+               # to review when the full message is viewed
+               if ($s =~ s/\n*---\n.*\z//s) {
+                       $more = "$pfx...\n";
+               }
+
                # kill any trailing whitespace
                $s =~ s/\s+\z//s;
 
                # add prefix:
                $s =~ s/^/$pfx/sgm;
 
-               $rv .= $s . "\n";
+               $rv .= $s . "\n$more";
                ++$part_nr;
        });