.txt links return an mbox instead

This improves compatibility and allows individual messages
to be concatenated into an existing mbox without further
modifications.  "git format-patch" does something similar
(but does not do "From " line escaping(!))

1 files changed, 11 insertions, 1 deletions

diff --git a/lib/PublicInbox/Mbox.pm b/lib/PublicInbox/Mbox.pm
index d49e9b39..bc4d639e 100644
--- a/lib/PublicInbox/Mbox.pm
+++ b/lib/PublicInbox/Mbox.pm
@@ -5,6 +5,7 @@ package PublicInbox::Mbox;
 use strict;
 use warnings;
 use PublicInbox::MID qw/mid_compressed mid2path/;
+require Email::Simple;
 
 sub thread_mbox {
         my ($ctx, $srch, $sfx) = @_;
@@ -14,6 +15,16 @@ sub thread_mbox {
         }
 }
 
+sub emit1 {
+        my $simple = Email::Simple->new(pop);
+        sub {
+                my ($response) = @_;
+                # single message should be easily renderable in browsers
+                my $fh = $response->([200, ['Content-Type'=>'text/plain']]);
+                emit_msg($fh, $simple);
+        }
+}
+
 sub emit_msg {
         my ($fh, $simple) = @_; # Email::Simple object
 
@@ -52,7 +63,6 @@ sub emit_mbox {
         $fh = PublicInbox::MboxGz->new($fh) if $sfx;
 
         require PublicInbox::GitCatFile;
-        require Email::Simple;
         my $mid = mid_compressed($ctx->{mid});
         my $git = PublicInbox::GitCatFile->new($ctx->{git_dir});
         my %opts = (offset => 0);