[PATCH 0/2] imapd: minor cleanups

[PATCH 0/2] imapd: minor cleanups

[Eric Wong]

Stuff noticed while working on supporting POP3...

Eric Wong (2):
  imap: remove unused args_ok sub
  imapd: update comment for PublicInbox::ConfigIter

 lib/PublicInbox/IMAP.pm  | 11 +----------
 lib/PublicInbox/IMAPD.pm |  2 +-
 2 files changed, 2 insertions(+), 11 deletions(-)

[PATCH 1/2] imap: remove unused args_ok sub

[Eric Wong]

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 <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) = @_;

[PATCH 2/2] imapd: update comment for PublicInbox::ConfigIter

[Eric Wong]

config enumeration was split out to a separate class a long time ago.
---
 lib/PublicInbox/IMAPD.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/PublicInbox/IMAPD.pm b/lib/PublicInbox/IMAPD.pm
index 661d6537..d8814324 100644
--- a/lib/PublicInbox/IMAPD.pm
+++ b/lib/PublicInbox/IMAPD.pm
@@ -94,7 +94,7 @@ sub imapd_refresh_finalize {
 	}
 }
 
-sub imapd_refresh_step { # pi_cfg->iterate_start cb
+sub imapd_refresh_step { # PublicInbox::ConfigIter cb
 	my ($pi_cfg, $section, $imapd) = @_;
 	if (defined($section)) {
 		return if $section !~ m!\Apublicinbox\.([^/]+)\z!;