about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-10-26 10:35:56 +0000
committerEric Wong <e@80x24.org>2021-10-26 17:43:57 +0000
commitb35c6389859f13f4f216179dac40a481c3fd7e09 (patch)
tree075829bb6070782a213a7a6229782c62e6e6bf6d
parent6d78574a7b8084a9415b4168262207ebe54e5feb (diff)
downloadpublic-inbox-b35c6389859f13f4f216179dac40a481c3fd7e09.tar.gz
These are supplied by the base LeiInput class
-rw-r--r--lib/PublicInbox/LeiRm.pm10
-rw-r--r--lib/PublicInbox/LeiTag.pm11
2 files changed, 0 insertions, 21 deletions
diff --git a/lib/PublicInbox/LeiRm.pm b/lib/PublicInbox/LeiRm.pm
index 97b1c5c1..524c178e 100644
--- a/lib/PublicInbox/LeiRm.pm
+++ b/lib/PublicInbox/LeiRm.pm
@@ -13,16 +13,6 @@ sub input_eml_cb { # used by PublicInbox::LeiInput::input_fh
         $self->{lei}->{sto}->wq_do('remove_eml', $eml);
 }
 
-sub input_mbox_cb { # MboxReader callback
-        my ($eml, $self) = @_;
-        input_eml_cb($self, $eml);
-}
-
-sub input_net_cb { # callback for ->imap_each, ->nntp_each
-        my (undef, undef, $kw, $eml, $self) = @_; # @_[0,1]: url + uid ignored
-        input_eml_cb($self, $eml);
-}
-
 sub input_maildir_cb {
         my (undef, $kw, $eml, $self) = @_; # $_[0] $filename ignored
         input_eml_cb($self, $eml);
diff --git a/lib/PublicInbox/LeiTag.pm b/lib/PublicInbox/LeiTag.pm
index 77654d1a..d64a9f86 100644
--- a/lib/PublicInbox/LeiTag.pm
+++ b/lib/PublicInbox/LeiTag.pm
@@ -19,23 +19,12 @@ sub input_eml_cb { # used by PublicInbox::LeiInput::input_fh
         }
 }
 
-sub input_mbox_cb {
-        my ($eml, $self) = @_;
-        $eml->header_set($_) for (qw(X-Status Status));
-        input_eml_cb($self, $eml);
-}
-
 sub pmdir_cb { # called via wq_io_do from LeiPmdir->each_mdir_fn
         my ($self, $f) = @_;
         my $eml = eml_from_path($f) or return;
         input_eml_cb($self, $eml);
 }
 
-sub input_net_cb { # imap_each, nntp_each cb
-        my ($url, $uid, $kw, $eml, $self) = @_;
-        input_eml_cb($self, $eml);
-}
-
 sub lei_tag { # the "lei tag" method
         my ($lei, @argv) = @_;
         my $sto = $lei->_lei_store(1);