+ my @versions = Debbugs::Status::getversions($bug->{'package'}, $dist, undef);
+ my @sourceversions = Debbugs::Status::makesourceversions($bug->{'package'}, $dist, @versions);
+
+ return Debbugs::Status::max_buggy(bug => $bugnr,
+ sourceversions => \@sourceversions,
+ found => $bug->{'found_versions'},
+ fixed => $bug->{'fixed_versions'},
+ version_cache => $_version_cache,
+ package => $bug->{'package'});
+}
+
+sub check_worry {
+ my ($status) = @_;
+
+ if ($status =~ m/^\[[^]]*I/ or
+ $status =~ m/ \[[^]]*X/ or
+ ($status =~ m/ \[[^]]*[OSUE]/ and $status !~ m/ \[[^]]*T/)) {
+ return 0;
+ }
+ return 1;
+}