sub add_overview {
my ($self, $mime, $smsg) = @_;
$smsg->{lines} = $mime->body_raw =~ tr!\n!\n!;
- $smsg->{mime} = $mime; # XXX temporary?
my $hdr = $mime->header_obj;
my $mids = mids_for_index($hdr);
my $refs = parse_references($smsg, $hdr, $mids);
use warnings;
use base qw(Exporter);
our @EXPORT_OK = qw(subject_normalized);
-use PublicInbox::MID qw(mid_mime mids);
+use PublicInbox::MID qw(mids);
use PublicInbox::Address;
use PublicInbox::MsgTime qw(msg_timestamp msg_datestamp);
use Time::Local qw(timegm);
sub __hdr ($$) {
my ($self, $field) = @_;
- $self->{lc($field)} //= do {
- my $mime = $self->{mime} or return;
- my $val = join(', ', $mime->header($field));
- $val =~ tr/\r//d;
- $val =~ tr/\t\n/ /;
- $val;
- };
+ $self->{lc($field)};
}
# for Import and v1 non-SQLite WWW code paths
$self->{from_name};
}
-sub ts {
- my ($self) = @_;
- $self->{ts} ||= eval { msg_timestamp($self->{mime}->header_obj) } || 0;
-}
-
-sub ds {
- my ($self) = @_;
- $self->{ds} ||= eval { msg_datestamp($self->{mime}->header_obj); } || 0;
-}
-
sub references {
my ($self) = @_;
my $x = $self->{references};
defined $x ? $x : '';
}
-sub mid ($;$) {
- my ($self, $mid) = @_;
-
- if (defined $mid) {
- $self->{mid} = $mid;
- } elsif (defined(my $rv = $self->{mid})) {
- $rv;
- } else {
- die "NO {mime} for mid\n" unless $self->{mime};
- mid_mime($self->{mime}) # v1 w/o Xapian
- }
-}
+sub mid { $_[0]->{mid} }
our $REPLY_RE = qr/^re:\s+/i;