From 6bce097edc14fff58d2c79718b2e1bcbc9dd3a15 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 16 Aug 2016 19:11:51 -0700
Subject: [PATCH] lowercase email address

---
 Debbugs/DB/Load.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Debbugs/DB/Load.pm b/Debbugs/DB/Load.pm
index d2774ab..bb93533 100644
--- a/Debbugs/DB/Load.pm
+++ b/Debbugs/DB/Load.pm
@@ -155,7 +155,7 @@ sub load_bug {
     for my $addr_type (keys %addr_map) {
         my @addrs = getparsedaddrs($data->{$addr_map{$addr_type}} // '');
         next unless @addrs;
-        $bug->{$addr_type} = $s->resultset('Correspondent')->find_or_create({addr => $addrs[0]->address()});
+        $bug->{$addr_type} = $s->resultset('Correspondent')->find_or_create({addr => lc($addrs[0]->address())});
         # insert the full name as well
         my $full_name = $addrs[0]->phrase();
         $full_name =~ s/^\"|\"$//g;
-- 
2.39.2