diff --git a/members/memberentry.pl b/members/memberentry.pl
index eb6d63d208..0bbb8422af 100755
--- a/members/memberentry.pl
+++ b/members/memberentry.pl
@@ -526,6 +526,13 @@ if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
         }
 
         $patron = Koha::Patrons->find( $borrowernumber );
+
+        if ($NoUpdateEmail) {
+            delete $newdata{'email'};
+            delete $newdata{'emailpro'};
+            delete $newdata{'B_email'};
+        }
+
         $newdata{debarredcomment} = $newdata{debarred_comment};
         delete $newdata{debarred_comment};
         delete $newdata{password2};