From f258fd2941e62f8995cd48a3d2aa36785760461a Mon Sep 17 00:00:00 2001
From: short <>
Date: Thu, 30 Dec 2004 10:10:29 +0000
Subject: [PATCH] Avoid overwriting of duped Mutt mail aliases.

---
 contacts-n9k2mutt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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";
 		}
 	}
-- 
1.8.3.1