diff -Nur e-smith-email-5.6.0.old/root/etc/e-smith/web/functions/pseudonyms e-smith-email-5.6.0/root/etc/e-smith/web/functions/pseudonyms
--- e-smith-email-5.6.0.old/root/etc/e-smith/web/functions/pseudonyms	2008-10-07 13:35:33.000000000 -0400
+++ e-smith-email-5.6.0/root/etc/e-smith/web/functions/pseudonyms	2020-06-27 23:44:11.487000000 -0400
@@ -129,6 +129,14 @@
             <label>SELECT_ACCOUNT</label>
         </field>
 
+        <field
+            id="internal" 
+            type="select"
+            options="YES => 'yes', NO => 'no'" 
+            value="no">
+            <label>SELECT_INTERNAL</label>
+        </field>
+
         <subroutine src="print_button('ADD')"/>
     </page>
 
diff -Nur e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm
--- e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm	2013-02-06 16:56:01.000000000 -0500
+++ e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm	2020-06-27 23:43:44.315000000 -0400
@@ -165,12 +165,20 @@
     my $q = $fm->{'cgi'};
     my $account = $q->param ('account');
     my $pseudonym = uri_unescape($q->param('pseudonym')); 
+    my $internal = $q->param ('internal') || 'NO';
     my $msg = "OK";
 
     $accounts->new_record($pseudonym, { type => 'pseudonym', 
                                      Account => $account} )
         or $msg = "Error occurred while creating pseudonym in database.";
 
+    if ($internal eq "YES") { 
+	my %props = ('Account' =>  $pseudonym);
+     	$props{'Visible'} = 'internal'; 
+	$props{'internal'} = $internal;
+    	$accounts->get($pseudonym)->merge_props(%props)
+        	or $msg = "Error occurred while modifying pseudonym in database.";
+	}
     # Untaint $pseudonym before use in system()
     ($pseudonym) = ($pseudonym =~ /(.+)/);
     system( "/sbin/e-smith/signal-event", "pseudonym-create", "$pseudonym",)