From d8166e9a8ea68bb11108bcc2048f500fa332a56e Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Thu, 10 Jul 2025 04:40:22 -0700
Subject: [PATCH] Allow use of ~ in autoreply file

---
 sendmail/autoreply.pl   | 3 +++
 sendmail/save_rfile.cgi | 1 +
 2 files changed, 4 insertions(+)

diff --git a/sendmail/autoreply.pl b/sendmail/autoreply.pl
index af09a1251..34bb99716 100755
--- a/sendmail/autoreply.pl
+++ b/sendmail/autoreply.pl
@@ -154,6 +154,9 @@ if ($header{'x-original-to'} && $rheader{'No-Forward-Reply'}) {
 # Open the replies tracking DBM, if one was set
 my $rtfile = $rheader{'Reply-Tracking'};
 if ($rtfile) {
+	if ($rtfile =~ /^~/) {
+		$rtfile =~ s/^~/$ENV{'HOME'}/;
+		}
 	if ($rtfile !~ /^\//) {
 		$rtfile = $ENV{'HOME'}.'/'.$rtfile;
 		}
diff --git a/sendmail/save_rfile.cgi b/sendmail/save_rfile.cgi
index 3c83a5ec5..b6d4c6247 100755
--- a/sendmail/save_rfile.cgi
+++ b/sendmail/save_rfile.cgi
@@ -10,6 +10,7 @@ if (substr($in{'file'}, 0, length($access{'apath'})) ne $access{'apath'}) {
 	&error(&text('rfile_efile', $in{'file'}));
 	}
 $in{'replies_def'} || $in{'replies'} =~ /^\/\S+/ ||
+    $in{'replies'} =~ /^~\/\S+/ ||
 	&error($text{'rfile_ereplies'});
 $in{'period_def'} || $in{'period'} =~ /^\d+$/ ||
 	&error($text{'rfile_eperiod'});