e-smith-email/sme7/e-smith-email-4.16.0-RelaxedEmailCheck.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm
--- e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm     2006-12-12 08:28:21.000000000 -0700
+++ mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm   2006-12-12 08:26:52.000000000 -0700
@@ -473,7 +473,8 @@
 
         return ('OK');
     }
-    elsif ($pseudonym !~ /^([a-z0-9][a-z0-9\.\-_]*)$/) {
+    elsif ($pseudonym !~ /^([a-z0-9][a-z0-9\.\-_\{!#\?~\}\$\^\+&`%\/\*]*)$/)
+    {
         return('VALID_PSEUDONYM_NAMES');
     }
     else {
1	diff -Nur -x '.orig' -x '.rej' e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm
2	--- e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm 2006-12-12 08:28:21.000000000 -0700
3	+++ mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm 2006-12-12 08:26:52.000000000 -0700
4	@@ -473,7 +473,8 @@
5
6	return ('OK');
7	}
8	- elsif ($pseudonym !~ /^([a-z0-9][a-z0-9\.\-_]*)$/) {
9	+ elsif ($pseudonym !~ /^([a-z0-9][a-z0-9\.\-_\{!#\?~\}\$\^\+&`%\/\])$/)
10	+ {
11	return('VALID_PSEUDONYM_NAMES');
12	}
13	else {