chiark / gitweb /
Publish rejections
[modbot-ulm.git] / stump / etc / sanitise_and_quote_email.INO
index a62f34947306dd50d5a02a0366c83c31a39b81c1..9446cd4a081bf104b0d322b9f96d7f915e1a9ad8 100755 (executable)
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -p
 
-s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q %DOMAIN% | %SLIMYDOMAIN \E) \b
+s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q%DOMAIN%\E | \Q%SLIMYDOMAIN%\E) \b
                 ,%OURUSER%+?\@$1,igx
        unless m/^$/..0;