bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove strange characters from Message-Ids to assure better matching

Browse source
This commit is contained in:
Bradley M. Kuhn 2022-12-01 18:06:16 -08:00
parent 0237e90fd6
commit 279ce453ba
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
remove-dup-mails-from-maildir.plx
View file

@ -49,6 +49,8 @@ foreach my $folder (@dupFolders) {
warn "$dir/$file has no message ID";
next;
}
$id =~ s/^[\<\s]+//; $id =~ s/[\>\s]$//;
# die "Duplicate message ID's $id\n" if defined $msgs{$id};
@ -87,6 +89,8 @@ foreach my $dir (@msgDirs) {
next;
}
}
$id =~ s/^[\<\s]+//; $id =~ s/[\>\s]$//;
if (not defined $id or $id =~ /^\s*$/) {
warn "$dir/$file has no message ID";
next;