about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-05-29 20:20:39 +0000
committerEric Wong <e@80x24.org>2021-05-30 05:02:42 +0000
commitc4aa366973c9129a640f51c6a52a986f393ac206 (patch)
tree7996b7ff793cf91b790ff4d26695b3ed85b4e348
parent528d69bbbda3cd26d9cc317eff92d21d980b2056 (diff)
downloadpublic-inbox-c4aa366973c9129a640f51c6a52a986f393ac206.tar.gz
Saved searches rely on (reverse) docid ordering for efficient
incremental results, and sorting any other way prevents that.

Update comment description in LeiQuery while we're at it:
"ls-query" and "rm-query" are "ls-search" and "forget-search",
respectively, and "mv-query" is implicit with "edit-search"
-rw-r--r--lib/PublicInbox/LeiQuery.pm5
-rw-r--r--lib/PublicInbox/LeiToMail.pm12
2 files changed, 9 insertions, 8 deletions
diff --git a/lib/PublicInbox/LeiQuery.pm b/lib/PublicInbox/LeiQuery.pm
index 0435a516..eb7b98d4 100644
--- a/lib/PublicInbox/LeiQuery.pm
+++ b/lib/PublicInbox/LeiQuery.pm
@@ -1,7 +1,8 @@
 # Copyright (C) 2021 all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 
-# handles lei <q|ls-query|rm-query|mv-query> commands
+# handles "lei q" command and provides internals for
+# several other sub-commands (up, lcat, ...)
 package PublicInbox::LeiQuery;
 use strict;
 use v5.10.1;
@@ -130,6 +131,8 @@ sub lei_q {
                 } else {
                         die "unrecognized --sort=$sort\n";
                 }
+                $opt->{save} and return
+                        $self->fail('--save and --sort are incompatible');
         }
         $self->{mset_opt} = \%mset_opt;
 
diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm
index 997ce599..5b5caee7 100644
--- a/lib/PublicInbox/LeiToMail.pm
+++ b/lib/PublicInbox/LeiToMail.pm
@@ -384,6 +384,7 @@ sub new {
         my $fmt = $lei->{ovv}->{fmt};
         my $dst = $lei->{ovv}->{dst};
         my $self = bless {}, $cls;
+        my @conflict;
         if ($fmt eq 'maildir') {
                 require PublicInbox::MdirReader;
                 $self->{base_type} = 'maildir';
@@ -412,13 +413,14 @@ sub new {
                 require PublicInbox::LeiViewText;
                 $lei->{lvt} = PublicInbox::LeiViewText->new($lei);
                 $self->{base_type} = 'text';
+                @conflict = qw(mua save);
         } elsif ($fmt eq 'v2') {
                 die "--dedupe=oid and v2 are incompatible\n" if
                         ($lei->{opt}->{dedupe}//'') eq 'oid';
                 $self->{base_type} = 'v2';
                 $lei->{opt}->{save} = \1;
-                die "--mua incompatible with v2\n" if $lei->{opt}->{mua};
                 $dst = $lei->{ovv}->{dst} = $lei->abs_path($dst);
+                @conflict = qw(mua sort);
         } else {
                 die "bad mail --format=$fmt\n";
         }
@@ -426,12 +428,8 @@ sub new {
                 (-d $dst || (-e _ && !-w _)) and die
                         "$dst exists and is not a writable file\n";
         }
-        if ($self->{base_type} eq 'text') {
-                my @err = map {
-                        defined($lei->{opt}->{$_}) ? "--$_" : ();
-                } (qw(mua save));
-                die "@err incompatible with $fmt\n" if @err;
-        }
+        my @err = map { defined($lei->{opt}->{$_}) ? "--$_" : () } @conflict;
+        die "@err incompatible with $fmt\n" if @err;
         $self->{dst} = $dst;
         $lei->{dedupe} = $lei->{lss} // do {
                 my $dd_cls = 'PublicInbox::'.