update copyright headers and email addresses

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

diff --git a/lib/PublicInbox/Mbox.pm b/lib/PublicInbox/Mbox.pm
index d49e9b39da0e9d96864a4c4c8e04aa56a5537505..c92d444774cef389fb6f35d0b38b4b3639377aba 100644 (file)
--- a/lib/PublicInbox/Mbox.pm
+++ b/lib/PublicInbox/Mbox.pm
@@ -1,10 +1,11 @@
-# Copyright (C) 2015, all contributors <meta@public-inbox.org>
+# Copyright (C) 2015 all contributors <meta@public-inbox.org>
 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
-# Streaming interface for formatting messages as an mbox
+# Streaming interface for formatting messages as an mboxrd
 package PublicInbox::Mbox;
 use strict;
 use warnings;
-use PublicInbox::MID qw/mid_compressed mid2path/;
+use PublicInbox::MID qw/mid2path/;
+require Email::Simple;
 
 sub thread_mbox {
        my ($ctx, $srch, $sfx) = @_;
@@ -14,24 +15,40 @@ 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);
+               $fh->close;
+       }
+}
+
 sub emit_msg {
        my ($fh, $simple) = @_; # Email::Simple object
+       my $header_obj = $simple->header_obj;
 
        # drop potentially confusing headers, ssoma already should've dropped
        # Lines and Content-Length
        foreach my $d (qw(Lines Content-Length Status)) {
-               $simple->header_set($d);
+               $header_obj->header_set($d);
        }
 
-       my $buf = $simple->header_obj->as_string;
+       my $buf = $header_obj->as_string;
        unless ($buf =~ /\AFrom /) {
-               $fh->write("From a\@a Thu Jan  1 00:00:00 1970\n");
+               $fh->write("From mboxrd\@z Thu Jan  1 00:00:00 1970\n");
        }
        $fh->write($buf .= $simple->crlf);
 
        $buf = $simple->body;
        $simple->body_set('');
-       $buf =~ s/^(From )/>$1/gm;
+
+       # mboxrd quoting style
+       # ref: http://www.qmail.org/man/man5/mbox.html
+       $buf =~ s/^(>*From )/>$1/gm;
+
        $buf .= "\n" unless $buf =~ /\n\z/s;
 
        $fh->write($buf);
@@ -52,8 +69,7 @@ sub emit_mbox {
        $fh = PublicInbox::MboxGz->new($fh) if $sfx;
 
        require PublicInbox::GitCatFile;
-       require Email::Simple;
-       my $mid = mid_compressed($ctx->{mid});
+       my $mid = $ctx->{mid};
        my $git = PublicInbox::GitCatFile->new($ctx->{git_dir});
        my %opts = (offset => 0);
        my $nr;