summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
d2f3227)
We can avoid a small amount of overhead and use the "preferred"
Message-ID based on what is in the SearchMsg object.
- my ($ctx, $simple) = @_; # Email::Simple object
+ my ($ctx, $simple, $mid) = @_; # Email::Simple object
my $header_obj = $simple->header_obj;
# drop potentially confusing headers, ssoma already should've dropped
my $header_obj = $simple->header_obj;
# drop potentially confusing headers, ssoma already should've dropped
}
my $ibx = $ctx->{-inbox};
my $base = $ibx->base_url($ctx->{env});
}
my $ibx = $ctx->{-inbox};
my $base = $ibx->base_url($ctx->{env});
- my $mid = mid_clean($header_obj->header('Message-ID'));
+ $mid = $ctx->{mid} unless defined $mid;
$mid = mid_escape($mid);
my @append = (
'Archived-At', "<$base$mid/>",
$mid = mid_escape($mid);
my @append = (
'Archived-At', "<$base$mid/>",
while (defined(my $smsg = shift @{$self->{msgs}})) {
my $msg = eval { $ibx->msg_by_smsg($smsg) } or next;
$msg = Email::Simple->new($msg);
while (defined(my $smsg = shift @{$self->{msgs}})) {
my $msg = eval { $ibx->msg_by_smsg($smsg) } or next;
$msg = Email::Simple->new($msg);
- $gz->write(PublicInbox::Mbox::msg_str($ctx, $msg));
+ $gz->write(PublicInbox::Mbox::msg_str($ctx, $msg,
+ $smsg->mid));
# use subject of first message as subject
if (my $hdr = delete $self->{hdr}) {
# use subject of first message as subject
if (my $hdr = delete $self->{hdr}) {