www_stream: add response wrapper sub

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

diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm
index c16c417a099e9e6b88bdc94e5f9897e37293380a..2f141c4413b9473e0f4ee3cdaaaa692633a95428 100644 (file)
--- a/lib/PublicInbox/Feed.pm
+++ b/lib/PublicInbox/Feed.pm
@@ -48,7 +48,7 @@ sub new_html {
        }
        $ctx->{-html_tip} = '<pre>';
        $ctx->{-upfx} = '';
-       my $res = PublicInbox::WwwStream->new($ctx, sub {
+       PublicInbox::WwwStream->response($ctx, 200, sub {
                while (my $path = shift @paths) {
                        my $m = do_cat_mail($ctx->{-inbox}, $path) or next;
                        my $more = scalar @paths;
@@ -58,7 +58,6 @@ sub new_html {
                }
                undef;
        });
-       [ 200, ['Content-Type', 'text/html; charset=UTF-8'], $res ]
 }
 
 # private subs