lei: add "lei up" to complement "lei q --save"

The command isn't finalized, yet, but it's intended to update
an existing saved search.

1 files changed, 7 insertions, 5 deletions

diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm
index bd2b714a..4ebaf8f3 100644
--- a/lib/PublicInbox/LeiToMail.pm
+++ b/lib/PublicInbox/LeiToMail.pm
@@ -349,11 +349,13 @@ sub new {
                 die "bad mail --format=$fmt\n";
         }
         $self->{dst} = $dst;
-        my $dd_cls = 'PublicInbox::'.
-                ($lei->{opt}->{save} ? 'LeiSavedSearch' : 'LeiDedupe');
-        eval "require $dd_cls";
-        die "$dd_cls: $@" if $@;
-        $lei->{dedupe} = $dd_cls->new($lei);
+        $lei->{dedupe} = $lei->{lss} // do {
+                my $dd_cls = 'PublicInbox::'.
+                        ($lei->{opt}->{save} ? 'LeiSavedSearch' : 'LeiDedupe');
+                eval "require $dd_cls";
+                die "$dd_cls: $@" if $@;
+                $dd_cls->new($lei);
+        };
         $self;
 }