my ($self, $query_string, $opts) = @_;
my $query = $self->qp->parse_query($query_string, QP_FLAGS);
+ $opts ||= {};
+ $opts->{relevance} = 1;
$self->do_enquire($query, $opts);
}
sub get_subject_path {
my ($self, $path, $opts) = @_;
my $query = $self->qp->parse_query("path:".mid_compressed($path), 0);
- $self->do_enquire($query);
+ $self->do_enquire($query, $opts);
}
# given a message ID, get followups to a message
my $irt = $qp->parse_query("inreplyto:$mid", 0);
my $ref = $qp->parse_query("references:$mid", 0);
my $query = Search::Xapian::Query->new(OP_OR, $irt, $ref);
-
- $self->do_enquire($query);
+ $self->do_enquire($query, $opts);
}
sub get_thread {
return { total => 0, msgs => [] } unless $smsg;
my $qp = $self->qp;
- my $qtid = $qp->parse_query('thread:'.$smsg->thread_id);
- my $qsub = $qp->parse_query('path:'.mid_compressed($smsg->path));
+ my $qtid = $qp->parse_query('thread:'.$smsg->thread_id, 0);
+ my $qsub = $qp->parse_query('path:'.mid_compressed($smsg->path), 0);
my $query = Search::Xapian::Query->new(OP_OR, $qtid, $qsub);
$self->do_enquire($query, $opts);
}
$query = Search::Xapian::Query->new(OP_AND, $query, $mail_query);
$enquire->set_query($query);
- $enquire->set_sort_by_relevance_then_value(TS, 0);
+ if ($opts->{relevance}) {
+ $enquire->set_sort_by_relevance_then_value(TS, 0);
+ } else {
+ $enquire->set_sort_by_value(TS, 0);
+ }
$opts ||= {};
my $offset = $opts->{offset} || 0;
my $limit = $opts->{limit} || 50;