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 (parent:
9f5eb0e
)
Fixed missing mail-attributes for the true nicks
author
short
<>
Sat, 12 Oct 2002 02:13:20 +0000
(
02:13
+0000)
committer
short
<>
Sat, 12 Oct 2002 02:13:20 +0000
(
02:13
+0000)
contacts-n9k2mutt
patch
|
blob
|
history
diff --git
a/contacts-n9k2mutt
b/contacts-n9k2mutt
index
d964139
..
8063692
100755
(executable)
--- a/
contacts-n9k2mutt
+++ b/
contacts-n9k2mutt
@@
-43,8
+43,11
@@
while (<>) {
push @nicks,$1 while $name=~s/"([^"]*)"//s;
$name=~s/\s*$//s;
$name=~s/^(\w+)\s+(\w+)$/$2 $1/s if !$iscompany;
push @nicks,$1 while $name=~s/"([^"]*)"//s;
$name=~s/\s*$//s;
$name=~s/^(\w+)\s+(\w+)$/$2 $1/s if !$iscompany;
- (my $nick=$name.(!$attr ? "" : ".$attr"))=~s/\s+/./gs;
- push @nicks,$nick;
+ push @nicks,$name;
+ for (@nicks) {
+ $_.=".$attr" if $attr;
+ s/\s+/./gs;
+ }
map({
"nick"=>$_,
"obj"=>Mail::Address->new($name,$mail),
map({
"nick"=>$_,
"obj"=>Mail::Address->new($name,$mail),