view: msg_html uses getline body to reduce latency

[public-inbox.git] / lib / PublicInbox / View.pm

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 0ba78fe2d9e103bcbe201dbbb47d1cf32a56fa40..534f85ef9b8110ca86e992d18118be2499786309 100644 (file)
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -9,6 +9,7 @@ use warnings;
 use URI::Escape qw/uri_escape_utf8/;
 use Date::Parse qw/str2time/;
 use Encode::MIME::Header;
+use Plack::Util;
 use PublicInbox::Hval qw/ascii_html/;
 use PublicInbox::Linkify;
 use PublicInbox::MID qw/mid_clean id_compress mid2path mid_mime/;
@@ -26,12 +27,26 @@ sub msg_html {
        my ($ctx, $mime, $footer) = @_;
        $footer = defined($footer) ? "\n$footer" : '';
        my $hdr = $mime->header_obj;
-       headers_to_html_header($hdr, $ctx) .
-               multipart_text_as_html($mime, '') .
-               '</pre><hr /><pre>' .
-               html_footer($hdr, 1, $ctx) .
-               '</pre>' . msg_reply($ctx, $hdr) .
-               '<hr /><pre>'.  $footer . '</pre></body></html>';
+       my $n = 0;
+       Plack::Util::inline_object(
+               close => sub {}, # noop
+               getline => sub {
+                       my $nr = $n++;
+                       if ($nr == 0) {
+                               headers_to_html_header($hdr, $ctx) .
+                                       multipart_text_as_html($mime, '') .
+                                       '</pre><hr />'
+                       } elsif ($nr == 1) {
+                               '<pre>' .
+                                       html_footer($hdr, 1, $ctx) .
+                                       '</pre>' . msg_reply($ctx, $hdr) .
+                                       '<hr /><pre>'.  $footer .
+                                       '</pre></body></html>'
+                       } else {
+                               undef
+                       }
+               }
+       )
 }
 
 # /$INBOX/$MESSAGE_ID/#R
@@ -44,14 +59,14 @@ sub msg_reply {
        push @$arg, '/path/to/YOUR_REPLY';
 
        "<hr /><pre\nid=R>".
-       "You may reply publically to <a\nhref=#t>this message</a> via email\n".
-       "using any one of the following methods:\n\n" .
+       "You may reply publically to <a\nhref=#t>this message</a> via\n".
+       "plain-text email using any one of the following methods:\n\n" .
        "* Save the following mbox file, import it into your mail client,\n" .
        "  and reply-to-all from there: <a\nhref=raw>mbox</a>\n\n" .
        "* Reply to all the recipients using the <b>--to</b>, <b>--cc</b>,\n" .
        "  and <b>--in-reply-to</b> switches of git-send-email(1):\n\n" .
        "\tgit send-email \\\n\t\t" .
-       join(" \\ \n\t\t", @$arg ). "\n\n" .
+       join(" \\\n\t\t", @$arg ). "\n\n" .
        qq(  <a\nhref="$se_url">$se_url</a>\n\n) .
        "* If your mail client supports setting the <b>In-Reply-To</b>" .
        " header\n  via mailto: links, try the " .