X-Git-Url: https://git.distorted.org.uk/~mdw/odin-cgi/blobdiff_plain/3e12ff54361d996cd64056a76b45f69abeec278d..7536d88d702f56b3c392d3bb04c82e43b1539f07:/lib/Odin.pm

diff --git a/lib/Odin.pm b/lib/Odin.pm
index a742839..06b5212 100644
--- a/lib/Odin.pm
+++ b/lib/Odin.pm
@@ -550,7 +550,7 @@ sub gen_redir_name ($$) {
   my ($db, $gen) = @_;
 
   for (my $try = 0; $try < $MAIL_MAXGENTRY; $try++) {
-    my $l = $gen->gen;
+    my $l = lc $gen->gen;
     return $l
       unless $db->selectrow_arrayref
 	("SELECT 1 FROM odin_mailredir WHERE lpart = ? AND dom = ?",