e-smith-email/sme10/e-smith-email-5.6.0-bz11799.patch

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.";
         }
1	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
2	--- 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
3	+++ 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
4	@@ -283,6 +283,7 @@
5	#TODO: is it ->delete or get()->delete
6	foreach my $p_rec (@pseudonyms) {
7	if ($p_rec->prop("Account") eq $pseudonym) {
8	+ next unless $p_rec->type eq "pseudonym-deleted";
9	$accounts->get($p_rec->key)->delete()
10	or $msg = "Error occurred while deleting pseudonym from database.";
11	}