git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
c3e8f93
)
Avoid overwriting of duped Mutt mail aliases.
author
short
<>
Thu, 30 Dec 2004 10:10:29 +0000
(10:10 +0000)
committer
short
<>
Thu, 30 Dec 2004 10:10:29 +0000
(10:10 +0000)
contacts-n9k2mutt
patch
|
blob
|
history
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";
}
}