-$fno = $f if $f;
-my $filter = Filter::read_in($sort, $call, $flag);
-Filter::delete($sort, $call, $flag, $fno);
+$fno = shift @f if @f && $f[0] =~ /^\d|all$/;
+
+my $filter = Filter::read_in($sort, $call, $flag);
+Filter::delete($sort, $call, $flag, $fno, $self);