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

[public-inbox.git] / lib / PublicInbox / LeiToMail.pm

diff --git a/lib/PublicInbox/LeiToMail.pm b/lib/PublicInbox/LeiToMail.pm
index bd2b714a1d68c75b307b4ce23c9c88467ce864d8..4ebaf8f347371d661e4473329ab3ef4dc23dd8e3 100644 (file)
--- 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;
 }