From 6ce99025aa1c34335ebe25b0d033489433697c6e Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew-github@dracos.co.uk>
Date: Tue, 7 Jun 2016 14:05:58 +0100
Subject: Strip line end spaces in emails.

---
 perllib/FixMyStreet/Email.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perllib/FixMyStreet/Email.pm')

diff --git a/perllib/FixMyStreet/Email.pm b/perllib/FixMyStreet/Email.pm
index 3d363f80d..ce7dad47a 100644
--- a/perllib/FixMyStreet/Email.pm
+++ b/perllib/FixMyStreet/Email.pm
@@ -187,6 +187,7 @@ sub construct_email ($) {
     # regex means, "replace any line ending that is neither preceded (?<!\n)
     # nor followed (?!\n) by a blank line with a single space".
     $body =~ s#(?<!\n)(?<!  )\n(?!\n)# #gs;
+    $body =~ s# +$##mg;
 
     $p->{Subject} = $subject if defined($subject);
 
-- 
cgit v1.2.3