Avoid overwriting of duped Mutt mail aliases.

[PerlMail.git] / contacts-n9k2mutt

diff --git a/contacts-n9k2mutt b/contacts-n9k2mutt
index 6aa6561..6136f45 100755 (executable)
--- a/contacts-n9k2mutt
+++ b/contacts-n9k2mutt
@@ -82,7 +82,11 @@ while (<>) {
                                        "obj"=>Mail::Address->new(($name_force || $name),$mail),
                                        },@nicks);
                        } @data);
+       my %dupe;
        for (@nicked) {
-               print "alias ".$_->{"nick"}." ".$_->{"obj"}->format()."\n";
+               my $nick=$_->{"nick"};
+               my $dupe=$dupe{$nick}++;
+               $nick.=".$dupe" if $dupe;
+               print "alias $nick ".$_->{"obj"}->format()."\n";
                }
        }