Fix previous patch on bounce address validation tag when the email address start with <.

This commit is contained in:
Gilles Darold 2020-06-08 07:07:40 +02:00
parent 7cd749fdae
commit 80889ea0a8

View file

@ -2326,7 +2326,7 @@ sub edecode
my ($addr) = @_;
# First remove any bounce address tag validation if any
$addr =~ s/^prvs=[^=]+=//;
$addr =~ s/^[<]?prvs=[^=]+=//;
if ($addr =~ /=\?[^\?]+\?(.)\?(.*)?=/s) {
if (uc($1) eq 'B') {