diff options
| author | Eric Wong <e@80x24.org> | 2022-04-02 01:56:59 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2022-04-02 04:39:27 +0000 |
| commit | 3e639ca78aa70ad6a6598bcf32d4b72696e3ebfb (patch) | |
| tree | de03b75feb49876775e42381c78dc65ee27c0be9 /examples | |
| parent | cf518e6b4876e2641960739ba58d9b112befd85a (diff) | |
| download | public-inbox-3e639ca78aa70ad6a6598bcf32d4b72696e3ebfb.tar.gz | |
This allows unambiguous signaling to some MUAs and webmail clients that th List-Unsubscribe header contains an instantaneous unsubscribe option.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/unsubscribe.milter | 7 |
1 files changed, 6 insertions, 1 deletions
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 <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> 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 <https://$domain/u/$u/$list>"; $ctx->chgheader($k, $index, $v); + $added = 1; } + # RFC 8058 + $added and $ctx->addheader('List-Unsubscribe-Post', + 'List-Unsubscribe=One-Click'); }; warn $@ if $@; SMFIS_CONTINUE; |