X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=contacts-n9k2mutt;fp=contacts-n9k2mutt;h=6136f45b5dafb0bde280ffd06fcdbb97aeda01c9;hp=6aa6561c53d9d4f0016da7e1dfbb29abef37d38d;hb=f258fd2941e62f8995cd48a3d2aa36785760461a;hpb=c3e8f93bdd428b21be0af55eed08f47cf14874b8

diff --git a/contacts-n9k2mutt b/contacts-n9k2mutt
index 6aa6561..6136f45 100755
--- 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";
 		}
 	}