+sub audit_sms_address
+{
+my($obj)=@_;
+
+ my $address=$obj->address();
+ if (my $alternates=muttrc_get("alternates")) {
+ return "I" if $address=~/$alternates/si;
+ }
+ my %aliases=muttrc_aliases();
+ if (my $alias=$aliases{lc $address}) {
+ local $_=$alias;
+ s/\.cz$//i;
+ return $_;
+ }
+ local $_=$address;
+ s/\b(Bus)siness$/$1/i;
+ s/\.ident$//i;
+ return $_;
+}
+