diff --git a/Modules/System/Email/src/Email/Outbox/EmailEditor.Page.al b/Modules/System/Email/src/Email/Outbox/EmailEditor.Page.al
index 49d628f451..fed3c3011d 100644
--- a/Modules/System/Email/src/Email/Outbox/EmailEditor.Page.al
+++ b/Modules/System/Email/src/Email/Outbox/EmailEditor.Page.al
@@ -392,7 +392,7 @@ page 13 "Email Editor"
             FromDisplayName := StrSubstNo(FromDisplayNameLbl, EmailAccount.Name, EmailAccount."Email Address");
     end;
 
-    local procedure ShowCloseOptionsMenu(): Boolean
+    protected procedure ShowCloseOptionsMenu(): Boolean
     var
         CloseOptions: Text;
         SelectedCloseOption: Integer;