+ # Now remove this entry from the other lists (if present)
+ for my $otherlist ('black', 'null') {
+ FindList(
+ userid => $rec{userid},
+ type => $otherlist,
+ sender => $rec{sender},
+ );
+
+ my $seq = GetList;
+
+ if ($seq->{sequence}) {
+ my $err;
+
+ ($err, $msg) = DeleteList(
+ userid => $rec{userid},
+ type => $otherlist,
+ sequence => $seq->{sequence},
+ );
+
+ croak $msg if $err < 0;
+
+ print br "Removed $rec{sender} from ${Userid}'s " . ucfirst $otherlist . ' list'
+ if $err > 0;
+
+ ResequenceList(
+ userid => $rec{userid},
+ type => $otherlist,
+ );
+ } # if
+ } # for