+sub mbox_gz {
+ my ($self, $cb, $fn) = @_;
+ $self->{base_url} = $self->{-inbox}->base_url($self->{env});
+ $self->{gz} = PublicInbox::GzipFilter::gzip_or_die();
+ $fn = to_filename($fn // 'no-subject');
+ $fn = 'no-subject' if $fn eq '';
+ # http://www.iana.org/assignments/media-types/application/gzip
+ response($self, $cb, [ qw(Content-Type application/gzip),
+ 'Content-Disposition', "inline; filename=$fn.mbox.gz" ]);
+}
+