view: wrap To: and Cc: headers in HTML display

It is common to have large amounts of addresses Cc:-ed in large
mailing lists like LKML.  Make them more readable by wrapping
after addresses.  Unfortunately, line breaks inserted by the
MUA get lost when using the public Email::MIME API.

Subject and body lines remain unwrapped, as it's the author's
fault to have such long lines :P

1 files changed, 21 insertions, 0 deletions

diff --git a/t/view.t b/t/view.t
index 8ae42256..b829ecf8 100644
--- a/t/view.t
+++ b/t/view.t
@@ -170,4 +170,25 @@ EOF
                 'regular ID not compressed');
 }
 
+{
+        my $cols = PublicInbox::View::COLS();
+        my @addr;
+        until (length(join(', ', @addr)) > ($cols * 2)) {
+                push @addr, '"l, f" <a@a>';
+                my $n = int(rand(20)) + 1;
+                push @addr, ('x'x$n).'@x';
+        }
+        my $orig = join(', ', @addr);
+        my $res = PublicInbox::View::fold_addresses($orig.'');
+        isnt($res, $orig, 'folded result');
+        unlike($res, qr/l,\n\tf/s, '"last, first" no broken');
+        my @nospc = ($res, $orig);
+        s/\s+//g for @nospc;
+        is($nospc[0], $nospc[1], 'no addresses lost in translation');
+        my $tws = PublicInbox::View::fold_addresses($orig.' ');
+        # (Email::Simple drops leading whitespace, but not trailing)
+        $tws =~ s/ \z//;
+        is($tws, $res, 'not thrown off by trailing whitespace');
+}
+
 done_testing();