(do_search) delete "Search results (none)" category too

1 files changed, 1 insertions, 1 deletions

diff --git a/rpmdrake b/rpmdrake
index 060dfc5d..36d41f03 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -65,7 +65,7 @@ sub do_search($$$$$$$) {
     }
     my $entry_rx = eval { qr/$entry/i } or return;
     my ($results_ok, $results_none) = (N("Search results"), N("Search results (none)"));
-    $options->{delete_category}->($results_ok);
+    $options->{delete_category}->($_) foreach $results_ok, $results_none;
     $options->{state}{flat} and $options->{delete_all}->();
     $tree->collapse_all;
     my @search_results;