From b70473ab8296d31ebb600adb4fa8fe0ac5935ca8 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Thu, 23 Apr 2020 08:34:19 +0000 Subject: watchmaildir: match List-ID case-insensitively RFC 2919 section 6 states the following: There is only one operation defined for list identifiers, that of case insensitive equality. So no arguing with that. Now, the other headers are open to interpretation, so put a note about them. --- lib/PublicInbox/WatchMaildir.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lib/PublicInbox/WatchMaildir.pm b/lib/PublicInbox/WatchMaildir.pm index 02e4b32f..71bd84fc 100644 --- a/lib/PublicInbox/WatchMaildir.pm +++ b/lib/PublicInbox/WatchMaildir.pm @@ -62,12 +62,17 @@ sub new { if (my $whs = $ibx->{watchheader}) { for (@$whs) { my ($k, $v) = split(/:/, $_, 2); + # XXX should this be case-insensitive? + # Or, mutt-style, case-sensitive iff + # a capital letter exists? push @$watch_hdrs, [ $k, qr/\Q$v\E/ ]; } } if (my $list_ids = $ibx->{listid}) { for (@$list_ids) { - my $re = qr/<[ \t]*\Q$_\E[ \t]*>/; + # RFC2919 section 6 stipulates + # "case insensitive equality" + my $re = qr/<[ \t]*\Q$_\E[ \t]*>/i; push @$watch_hdrs, ['List-Id', $re ]; } } -- cgit v1.2.3-24-ge0c7