diff -Nur smeserver-mailsorting-1.4.old/root/etc/e-smith/events/actions/mailsorting-update-user smeserver-mailsorting-1.4/root/etc/e-smith/events/actions/mailsorting-update-user
--- smeserver-mailsorting-1.4.old/root/etc/e-smith/events/actions/mailsorting-update-user	2014-12-02 01:32:45.000000000 -0500
+++ smeserver-mailsorting-1.4/root/etc/e-smith/events/actions/mailsorting-update-user	2017-07-04 13:49:59.584000000 -0400
@@ -41,7 +41,7 @@
 	"Account $userName is not a user account; update mailsorting failed.\n"
 	unless ($user && $user->prop('type') eq "user" || $userName eq "admin");
     @users = ($user);
-my $geekmode = $user->prop('geekmode') || 'disabled';
+    my $geekmode = $user->prop('geekmode') || 'disabled';
     if($geekmode eq "enabled"){
         print "User $userName in geek mode, do not update mailfilter and procmail rules.\n";
         exit;
@@ -56,10 +56,16 @@
 foreach my $userName (@users)
 {
     $userName = $userName->key;
+    my $geekmode = $accountsdb->get_prop ($userName,'geekmode') || 'disabled';
+    if ( $geekmode eq "enabled" )
+    {
+	print "User $userName in geek mode, do not update mailfilter and procmail rules.\n";
+	next;
+    }
 
     for my $dotfile ( qw(.procmailrc .mailfilter) )
     {
-my $pathtohome = ($userName eq 'admin')? "/home/e-smith":"/home/e-smith/files/users/$userName";
+        my $pathtohome = ($userName eq 'admin')? "/home/e-smith":"/home/e-smith/files/users/$userName";
 
         esmith::templates::processTemplate (
 	{