- if ($sequence) {
- $count = DeleteList $otherlist, $sequence;
- print br "Removed $sender from ${Userid}'s " . ucfirst $otherlist . ' list'
- if $count > 0;
-
- ResequenceList $userid, $otherlist;
- } # if
- } # foreach
+ # Now remove this entry from the other lists (if present)
+ for my $otherlist ('white', '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