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=-3.9 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00, 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 CFA561F4CE; Sat, 2 Apr 2022 01:56:59 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH] examples/unsubscribe.milter: RFC 8058 (List-Unsubscribe=One-Click) Date: Sat, 2 Apr 2022 01:56:59 +0000 Message-Id: <20220402015659.1539912-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: This allows unambiguous signaling to some MUAs and webmail clients that th List-Unsubscribe header contains an instantaneous unsubscribe option. --- Documentation/standards.perl | 4 ++++ examples/unsubscribe.milter | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/Documentation/standards.perl b/Documentation/standards.perl index 32003c91..69568ceb 100755 --- a/Documentation/standards.perl +++ b/Documentation/standards.perl @@ -62,6 +62,10 @@ my $rfcs = [ # 8621 => JSON Meta Application Protocol (JMAP) for Mail # ... + # examples/unsubscribe.milter and PublicInbox::Unsubscribe + 2369 => 'URLs as Meta-Syntax for Core Mail List Commands', + 8058 => 'Signaling One-Click Functionality for List Email Headers', + # TODO: flesh this out ]; diff --git a/examples/unsubscribe.milter b/examples/unsubscribe.milter index 04a39761..216b0ddd 100644 --- a/examples/unsubscribe.milter +++ b/examples/unsubscribe.milter @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# Copyright (C) 2016-2021 all contributors +# Copyright (C) all contributors # License: AGPL-3.0+ use strict; use Sendmail::PMilter qw(:all); @@ -96,6 +96,7 @@ $cbs{eom} = sub { my $unsub = $priv->{header}->{'list-unsubscribe'} || []; my $n = 0; + my $added; foreach my $u (@$unsub) { # Milter indices are 1-based, # not 0-based like Perl arrays @@ -114,7 +115,11 @@ $cbs{eom} = sub { $v .= ",\n "; $ctx->chgheader($k, $index, $v); + $added = 1; } + # RFC 8058 + $added and $ctx->addheader('List-Unsubscribe-Post', + 'List-Unsubscribe=One-Click'); }; warn $@ if $@; SMFIS_CONTINUE;