&audit_sms_address: Fixed collapsing of names and name aliases

[PerlMail.git] / My-Audit.pm

diff --git a/My-Audit.pm b/My-Audit.pm
index d9e50ee..81af794 100644 (file)
--- a/My-Audit.pm
+++ b/My-Audit.pm
@@ -173,12 +173,12 @@ my($obj)=@_;
        my %aliases=muttrc_aliases();
        if (my $alias=$aliases{lc $address}) {
                local $_=$alias;
-               s/\.cz$//i;
+               s/\b(Bus)siness$/$1/i;
+               s/\.ident$//i;
                return $_;
                }
        local $_=$address;
-       s/\b(Bus)siness$/$1/i;
-       s/\.ident$//i;
+       s/\.cz$//i;
        return $_;
 }