From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00, DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF, T_SCC_BODY_TEXT_LINE shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id D554A1F727 for ; Fri, 13 May 2022 00:40:38 +0000 (UTC) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=80x24.org; s=selector1; t=1652402438; bh=2hkDV8/LsZS9uR7agdDO15o7mdCQ6sgk5HKhripLYDg=; h=From:To:Subject:Date:In-Reply-To:References:From; b=Ayrat0laNst1raG1YGX4zyayAi44by0fhXDoK7YmnAEr6eW7MuptXx60s4XT35JJA WsqaPqrFRCfpvDoMk+E/RX7m2YyC4UML/PYVHWdVZEvaIZld9hEa+eFnJrNM3i5p0y GeXHEXNZX3hDV5Xt7Ix7/FhE1dm8XnpWUXS/CRSc= From: Eric Wong To: meta@public-inbox.org Subject: [PATCH 1/2] imap: remove unused args_ok sub Date: Fri, 13 May 2022 00:40:37 +0000 Message-Id: <20220513004038.30026-2-e@80x24.org> In-Reply-To: <20220513004038.30026-1-e@80x24.org> References: <20220513004038.30026-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Noticed while reviewing pieces for POP3. --- lib/PublicInbox/IMAP.pm | 11 +---------- 1 file changed, 1 insertion(+), 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 +# Copyright (C) all contributors # License: AGPL-3.0+ # # 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) = @_;