X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/8f5174ea209b87c24a1413ce21c5971864d9eea6..fbf8b18edfecd9e29e62c00c906b096278314d72:/bin/disorder-notify

diff --git a/bin/disorder-notify b/bin/disorder-notify
index e530cc3..e801d3d 100755
--- a/bin/disorder-notify
+++ b/bin/disorder-notify
@@ -3,6 +3,9 @@
 sub notify ($$) {
   my ($head, $body) = @_;
 
+  $body =~ s:\&:&:g;
+  $body =~ s:\<:&lt;:g;
+  $body =~ s:\>:&gt;:g;
   my $kid = fork;
   defined $kid or return;
   if (!$kid) {