extra: neomutt-export-patches: print reason for skipping a mail
Signed-off-by: Christoph Heiss <christoph@c8h4.io>
This commit is contained in:
parent
fce9a1a367
commit
0f1d7c1c38
|
@ -99,7 +99,21 @@ sub dump_emails_recursive {
|
|||
foreach (@$mail) {
|
||||
if (ref($_) eq 'HASH') {
|
||||
my $subj = parse_subject($_->{headers}->{Subject});
|
||||
next if !$subj || $subj->{is_coverletter} || $subj->{is_reply};
|
||||
|
||||
if (!$subj) {
|
||||
print "skipping $_->{id} due to malformed or missing subject: '$_->{headers}->{Subject}'\n";
|
||||
next;
|
||||
}
|
||||
|
||||
if ($subj->{is_coverletter}) {
|
||||
print "skipping $_->{id} due to being coverletter\n";
|
||||
next;
|
||||
}
|
||||
|
||||
if ($subj->{is_reply}) {
|
||||
print "skipping $_->{id} due to being a reply\n";
|
||||
next;
|
||||
}
|
||||
|
||||
print "dumping '$subj->{canonical}' ..\n";
|
||||
|
||||
|
|
Loading…
Reference in a new issue