use warnings;
use base qw(Exporter);
our @EXPORT_OK = qw(subject_normalized);
-use PublicInbox::MID qw/mid_mime/;
+use PublicInbox::MID qw(mid_mime mids);
use PublicInbox::Address;
use PublicInbox::MsgTime qw(msg_timestamp msg_datestamp);
use Time::Local qw(timegm);
-sub wrap {
- my ($class, $mid) = @_;
- bless { mid => $mid }, $class;
-}
-
sub get_val ($$) {
my ($doc, $col) = @_;
# sortable_unserialise is defined by PublicInbox::Search::load_xapian()
};
}
-# for Import and v1 WWW code paths
+# for Import and v1 non-SQLite WWW code paths
sub populate {
my ($self, $hdr, $v2w) = @_;
for my $f (qw(From To Cc Subject)) {
$self->{-ts} = [ my @ts = msg_timestamp($hdr, $v2w->{cotime}) ];
$self->{ds} //= $ds[0]; # no zone
$self->{ts} //= $ts[0];
+
+ # for v1 users w/o SQLite
+ $self->{mid} //= eval { mids($hdr)->[0] } // '';
}
sub subject ($) { __hdr($_[0], 'Subject') }