+ # Now remove this entry from the other lists (if present)
+ for my $otherlist ('white', 'black') {
+ FindList(
+ userid => $item->{userid},
+ type => $otherlist,
+ sender => $item->{sender}
+ );
+
+ my $seq = GetList;
+
+ if ($seq->{sequence}) {
+ my $count = DeleteList(
+ userid => $item->{userid},
+ type => $otherlist,
+ sequence => $seq->{sequence},
+ );
+
+ display "Removed $item->{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
+ if $count > 0;
+
+ ResequenceList(
+ userid => $item->{userid},
+ type => $otherlist,
+ );