diff options
author | Eric Wong <e@yhbt.net> | 2020-05-07 21:05:50 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-05-09 08:59:10 +0000 |
commit | 46742d95647c7a80cb2f60d5c134717dd91e22e2 (patch) | |
tree | 43b6ef4aebba979e48eb9143cd491f1a5b3f7eea /script/public-inbox-edit | |
parent | 3b1b7abf814dbc7f2a737b2ca0e12b0fa518ff44 (diff) | |
download | public-inbox-46742d95647c7a80cb2f60d5c134717dd91e22e2.tar.gz |
PublicInbox::Eml has enough functionality to replace the Email::MIME-based PublicInbox::MIME.
Diffstat (limited to 'script/public-inbox-edit')
-rwxr-xr-x | script/public-inbox-edit | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/script/public-inbox-edit b/script/public-inbox-edit index 42f914a8..e895a228 100755 --- a/script/public-inbox-edit +++ b/script/public-inbox-edit @@ -12,7 +12,7 @@ use File::Temp 0.19 (); # 0.19 for TMPDIR use PublicInbox::ContentId qw(content_id); use PublicInbox::MID qw(mid_clean mids); PublicInbox::Admin::check_require('-index'); -use PublicInbox::MIME; +use PublicInbox::Eml; use PublicInbox::InboxWritable; use PublicInbox::Import; @@ -52,7 +52,7 @@ sub find_mid ($$$) { my ($id, $prev); while (my $smsg = $over->next_by_mid($mid, \$id, \$prev)) { my $ref = $ibx->msg_by_smsg($smsg); - my $mime = PublicInbox::MIME->new($ref); + my $mime = PublicInbox::Eml->new($ref); my $cid = content_id($mime); my $tuple = [ $ibx, $smsg ]; push @{$found->{$cid} ||= []}, $tuple @@ -205,8 +205,8 @@ W: possible message boundary splitting error $new_raw =~ s/^>(>*From )/$1/gm; } - my $new_mime = PublicInbox::MIME->new(\$new_raw); - my $old_mime = PublicInbox::MIME->new($old_raw); + my $new_mime = PublicInbox::Eml->new(\$new_raw); + my $old_mime = PublicInbox::Eml->new($old_raw); # make sure we don't compare unwanted headers, since mutt adds # Content-Length, Status, and Lines headers: |