This makes dumping recent topics easier, hopefully.
# read-only
sub query {
my ($self, $query_string, $opts) = @_;
# read-only
sub query {
my ($self, $query_string, $opts) = @_;
- my $query = $self->qp->parse_query($query_string, QP_FLAGS);
- $opts->{relevance} = 1;
+ unless ($query_string eq '') {
+ $query = $self->qp->parse_query($query_string, QP_FLAGS);
+ $opts->{relevance} = 1;
+ }
+
$self->do_enquire($query, $opts);
}
$self->do_enquire($query, $opts);
}
sub do_enquire {
my ($self, $query, $opts) = @_;
my $enquire = $self->enquire;
sub do_enquire {
my ($self, $query, $opts) = @_;
my $enquire = $self->enquire;
-
- $query = Search::Xapian::Query->new(OP_AND, $query, $mail_query);
+ if (defined $query) {
+ $query = Search::Xapian::Query->new(OP_AND,$query,$mail_query);
+ } else {
+ $query = $mail_query;
+ }
$enquire->set_query($query);
if ($opts->{relevance}) {
$enquire->set_sort_by_relevance_then_value(TS, 0);
$enquire->set_query($query);
if ($opts->{relevance}) {
$enquire->set_sort_by_relevance_then_value(TS, 0);