about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2022-05-13 00:40:37 +0000
committerEric Wong <e@80x24.org>2022-05-16 20:15:55 +0000
commit8cbf801eee267018e92b3f554aa02854b9c7d540 (patch)
tree12e3cedc845fd01b2f7a4d3da0cc0e1a3d740e5d
parent37ee470e1f4a279171452418f013bf114bab343f (diff)
downloadpublic-inbox-8cbf801eee267018e92b3f554aa02854b9c7d540.tar.gz
Noticed while reviewing pieces for POP3.
-rw-r--r--lib/PublicInbox/IMAP.pm11
1 files changed, 1 insertions, 10 deletions
diff --git a/lib/PublicInbox/IMAP.pm b/lib/PublicInbox/IMAP.pm
index 58a0a9e3..d47e4c2f 100644
--- a/lib/PublicInbox/IMAP.pm
+++ b/lib/PublicInbox/IMAP.pm
@@ -1,4 +1,4 @@
-# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org>
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
 #
 # Each instance of this represents an IMAP client connected to
@@ -1153,15 +1153,6 @@ sub cmd_search ($$$;) {
         search_common($self, $tag, $query, 1);
 }
 
-sub args_ok ($$) { # duplicated from PublicInbox::NNTP
-        my ($cb, $argc) = @_;
-        my $tot = prototype $cb;
-        my ($nreq, undef) = split(';', $tot);
-        $nreq = ($nreq =~ tr/$//) - 1;
-        $tot = ($tot =~ tr/$//) - 1;
-        ($argc <= $tot && $argc >= $nreq);
-}
-
 # returns 1 if we can continue, 0 if not due to buffered writes or disconnect
 sub process_line ($$) {
         my ($self, $l) = @_;