use PublicInbox::MDA;
use PublicInbox::Spawn qw(spawn);
use File::Temp qw//;
-use PublicInbox::MID qw(mids);
-use PublicInbox::ContentId qw(content_digest);
sub new {
my ($class, $config) = @_;
# path must be marked as (S)een
$path =~ /:2,[A-R]*S[T-Za-z]*\z/ or return;
my $mime = _path_to_mime($path) or return;
- _force_mid($mime);
$self->{config}->each_inbox(sub {
my ($ibx) = @_;
eval {
})
}
-sub _force_mid {
- my ($mime) = @_;
- my $hdr = $mime->header_obj;
- my $mids = mids($hdr);
- return if @$mids;
- my $dig = content_digest($mime);
- my $mid = $dig->clone->hexdigest . '@localhost';
- $hdr->header_set('Message-Id', $mid);
-}
-
sub _try_path {
my ($self, $path) = @_;
my @p = split(m!/+!, $path);
$mime = $ret;
}
- _force_mid($mime);
$im->add($mime, $self->{spamcheck});
}