extra: neomutt-export-patches: print reason for skipping a mail

Signed-off-by: Christoph Heiss <christoph@c8h4.io>
This commit is contained in:
Christoph Heiss 2024-05-21 16:23:21 +02:00
parent fce9a1a367
commit 0f1d7c1c38
Signed by: c8h4
GPG key ID: 1538094429952F86

View file

@ -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";