2 files changed, 15 insertions, 0 deletions

diff --git a/src/mailman/model/listmanager.py b/src/mailman/model/listmanager.py
index b3b8d38e4..5e260a6cd 100644
--- a/src/mailman/model/listmanager.py
+++ b/src/mailman/model/listmanager.py
@@ -45,6 +45,7 @@ class ListManager:
     @dbconnection
     def create(self, store, fqdn_listname):
         """See `IListManager`."""
+        fqdn_listname = fqdn_listname.lower()
         listname, at, hostname = fqdn_listname.partition('@')
         if len(hostname) == 0:
             raise InvalidEmailAddressError(fqdn_listname)
diff --git a/src/mailman/model/tests/test_listmanager.py b/src/mailman/model/tests/test_listmanager.py
index 3dabdbc5c..152d96b9f 100644
--- a/src/mailman/model/tests/test_listmanager.py
+++ b/src/mailman/model/tests/test_listmanager.py
@@ -125,3 +125,17 @@ Message-ID: <argon>
         self.assertEqual(request, None)
         saved_message = getUtility(IMessageStore).get_message_by_id('<argon>')
         self.assertEqual(saved_message.as_string(), msg.as_string())
+
+
+
+class TestListCreation(unittest.TestCase):
+    layer = ConfigLayer
+
+    def test_create_list_case_folding(self):
+        # LP: #1117176 describes a problem where list names created in upper
+        # case are not actually usable by the LMTP server.
+        manager = getUtility(IListManager)
+        manager.create('my-LIST@example.com')
+        self.assertIsNone(manager.get('my-LIST@example.com'))
+        mlist = manager.get('my-list@example.com')
+        self.assertEqual(mlist.list_id, 'my-list.example.com')