about summary refs log tree commit homepage
path: root/lib/PublicInbox/Reply.pm
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2018-12-28 00:22:12 +0000
committerEric Wong <e@80x24.org>2018-12-28 00:22:12 +0000
commitc5d3dc3122323bda426de9251fcbdb2561570c42 (patch)
treebcfe1589303a2f138e00fd48364eccbfc4ec9e01 /lib/PublicInbox/Reply.pm
parent8b8c71076e19732e2267d2c899d90513101aaab3 (diff)
downloadpublic-inbox-c5d3dc3122323bda426de9251fcbdb2561570c42.tar.gz
This can be useful for configuring archives of lists which are
no longer active.
Diffstat (limited to 'lib/PublicInbox/Reply.pm')
-rw-r--r--lib/PublicInbox/Reply.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/PublicInbox/Reply.pm b/lib/PublicInbox/Reply.pm
index 17b1abb2..11e17ede 100644
--- a/lib/PublicInbox/Reply.pm
+++ b/lib/PublicInbox/Reply.pm
@@ -34,8 +34,16 @@ sub mailto_arg_link {
         my $cc = {}; # everyone else
         my $to; # this is the From address by defaultq
         my $reply_to_all = 'reply-to-all'; # the only good default :P
+        my $reply_to_cfg = $ibx->{replyto};
 
-        foreach my $rt (split(/\s*,\s*/, $ibx->{replyto} || ':all')) {
+        $reply_to_cfg ||= ':all';
+        if ($reply_to_cfg =~ /\A:none=(.*)/) {
+                my $msg = $1;
+                $msg = 'replies disabled' if $msg eq '';
+                return \$msg;
+        }
+
+        foreach my $rt (split(/\s*,\s*/, $reply_to_cfg)) {
                 if ($rt eq ':all') {
                         foreach my $h (@reply_headers) {
                                 my $v = $hdr->header($h);