diff -Nur --no-dereference 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	2022-04-16 12:23:00.053000000 -0400
+++ e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm	2022-04-16 12:29:27.603000000 -0400
@@ -283,6 +283,7 @@
     #TODO: is it ->delete or get()->delete
     foreach my $p_rec (@pseudonyms) {
         if ($p_rec->prop("Account") eq $pseudonym) {
+            next unless $p_rec->type eq "pseudonym-deleted";
             $accounts->get($p_rec->key)->delete()
                 or $msg = "Error occurred while deleting pseudonym from database.";
         }