* update the update_lists command

diff --git a/update_lists b/update_lists
index d23aa247006c1e8424a23af3d1c9c2fccc661f3f..a2ffaf29b5e8b66e8684bd3a90ae35915c8006ab 100755 (executable)
--- a/update_lists
+++ b/update_lists
@@ -2,9 +2,9 @@
 
 cd ~/Maildir
 # Build lists sublists
-find lists -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\//./g; qx(ln -sf $a .$b)'
+find lists -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\./_/g; $b =~ s/\//./g; qx(ln -sf $a .$b)'
 # Build bugs sublists
-find bugs  -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\//./g; qx(ln -sf $a .$b)'
+find bugs  -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\./_/g; $b =~ s/\//./g; qx(ln -sf $a .$b)'
 
 # Remove dead lists
 #find ~/Maildir/lists/ -type d -maxdepth 1 -mindepth 1|xargs -n 1 -i sh -c '(( $(find "{}" -type f -iname "*" |wc -l) <= 1 )) && rm -rf "{}"'