From: short <>
Date: Wed, 11 Dec 2002 13:41:52 +0000 (+0000)
Subject: &audit_sms_address: Fixed collapsing of names and name aliases
X-Git-Tag: bp_lace~69
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=8383e7c164d95dfab1834f22cca130a7b8338b4b

&audit_sms_address: Fixed collapsing of names and name aliases
---

diff --git a/My-Audit.pm b/My-Audit.pm
index d9e50ee..81af794 100644
--- 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 $_;
 }