Whitespace, not words.

This commit is contained in:
Harlan Lieberman-Berg 2015-08-11 16:58:59 -04:00
parent a79e085f74
commit ab08d69bf0

View file

@ -81,7 +81,7 @@ sub FetchPossibleHeaders {
if ($head->get('References')) { if ($head->get('References')) {
chomp(); chomp();
foreach my $ref (split("\w+", $_)) { foreach my $ref (split(/\s+/, $_)) {
$ref =~ /,?<([^>]+)>/; $ref =~ /,?<([^>]+)>/;
if ($1) { if ($1) {
push(@msgids, $1); push(@msgids, $1);