From adfd17568136c2aea007881a82f5c65d43e0211d Mon Sep 17 00:00:00 2001
From: Francis Lachapelle <flachapelle@inverse.ca>
Date: Fri, 22 Jul 2022 16:45:47 -0400
Subject: [PATCH] fix(preferences): regex in Sieve scripts are now case
 sensitive

Fixes #5561
---
 SoObjects/SOGo/SOGoSieveManager.m | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/SoObjects/SOGo/SOGoSieveManager.m b/SoObjects/SOGo/SOGoSieveManager.m
index 4a2d9d624..24dddf520 100644
--- a/SoObjects/SOGo/SOGoSieveManager.m
+++ b/SoObjects/SOGo/SOGoSieveManager.m
@@ -128,7 +128,7 @@ static NSString *sieveScriptName = @"sogo";
   if (!sieveOperators)
     {
       sieveOperators = [NSArray arrayWithObjects: @"is", @"contains",
-                                @"matches", @"regex",
+                                @"matches", @"regex", @"regex :comparator \"i;octet\"",
                                 @"over", @"under", nil];
       [sieveOperators retain];
     }
@@ -367,6 +367,8 @@ static NSString *sieveScriptName = @"sogo";
           requirement = [operatorRequirements objectForKey: baseOperator];
           if (requirement)
             [requirements addObjectUniquely: requirement];
+          if ([baseOperator isEqualToString: @"regex"])
+            baseOperator = @"regex :comparator \"i;octet\""; // case-sensitive comparator
           *operator = baseOperator;
         }
       else