From 2bfb550947385467c7dc05b9e89427be0a03347f Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Thu, 19 Mar 2020 19:08:58 +0100
Subject: [PATCH] Escape dots in minilist names to semicolons

See http://www.lifewithqmail.com/lwq.html#dots-in-extensions
---
 root/etc/e-smith/events/actions/qmail-update-list | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/root/etc/e-smith/events/actions/qmail-update-list b/root/etc/e-smith/events/actions/qmail-update-list
index 0fb2118..eec9878 100644
--- a/root/etc/e-smith/events/actions/qmail-update-list
+++ b/root/etc/e-smith/events/actions/qmail-update-list
@@ -24,6 +24,9 @@ if ($ARGV[1]){
 
 foreach my $list (@lists){
     my $name = $list->key;
+    # dots must be escaped by replacing them with a :
+    # see http://www.lifewithqmail.com/lwq.html#dots-in-extensions
+    $name =~ s/\./:/g;
     unless ($list->prop('type') eq 'minilist'){
         warn "Account $name is not a mailinglist account.\n";
         next;