X-Git-Url: https://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=d24bf28581e85c360214e63e9b3b46d6c07effbd;hp=19b9e930c552e02f9ec98dddc8f24bcec13e5a8f;hb=0c7663aae12f00d8b4cb794fd266a52d96baffb5;hpb=db8e8563243caf82752aa8e24cb4408ac2aeea48

diff --git a/Web.pm b/Web.pm
index 19b9e93..d24bf28 100644
--- a/Web.pm
+++ b/Web.pm
@@ -817,7 +817,7 @@ my($in,$contents,%args)=@_;
 	if (!defined $contents) {
 		$contents=$in;
 		$contents=File::Basename::basename($contents) if $args{"basename"};
-		$contents=~s/^mailto:([-.\w]+@[-.\w]+)$/$1/;
+		$contents=~s/^mailto:([-.\w]+(?:@|\Q(at)\E)[-.\w]+)$/$1/;
 		$contents=escapeHTML($contents);
 		}
 	$contents=~s#<a\b[^>]*>##gi;