about summary refs log tree commit homepage
path: root/lib/PublicInbox/URIimap.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2021-04-26 11:44:25 +0000
committerEric Wong <e@80x24.org>2021-04-26 21:05:04 -0400
commitfb7702f0888e9bdad98f33c09c4048625322a688 (patch)
tree41b1fd6845ae1cf4976863b5be0ce2a3aee49712 /lib/PublicInbox/URIimap.pm
parent319fa38ae121b86b375f3f67ec6f5f45e4608b12 (diff)
downloadpublic-inbox-fb7702f0888e9bdad98f33c09c4048625322a688.tar.gz
And the UID one, too, as well.  This simplifies future
comparison and matching code once case is no longer
taken into account.
Diffstat (limited to 'lib/PublicInbox/URIimap.pm')
-rw-r--r--lib/PublicInbox/URIimap.pm3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/PublicInbox/URIimap.pm b/lib/PublicInbox/URIimap.pm
index dc193468..df9f5fd9 100644
--- a/lib/PublicInbox/URIimap.pm
+++ b/lib/PublicInbox/URIimap.pm
@@ -30,6 +30,9 @@ sub canonical {
         my ($scheme, $auth, $path, $query, $_frag) = uri_split($$self);
         $path =~ s!\A/+!/!; # excessive leading slash
 
+        # upper-case uidvalidity= and uid= parameter names
+        $path =~ s/;([^=]+)=([^;]*)/;\U$1\E=$2/g;
+
         # lowercase the host portion
         $auth =~ s#\A(.*@)?(.*?)(?::([0-9]+))?\z#
                 my $ret = ($1//'').lc($2);