Escape lines with just a . , which breaks SMTP

diff --git a/sendmail/filter.pl b/sendmail/filter.pl
index b0bd17b..6b62968 100755 (executable)
--- a/sendmail/filter.pl
+++ b/sendmail/filter.pl
@@ -35,7 +35,16 @@ while(<STDIN>) {
        elsif (!$_) { last; }
        }
 while(<STDIN>) {
-       $body .= $_;
+       if ($_ eq ".\n") {
+               # Single line with a . confuses SMTP
+               $body .= ". \n";
+               }
+       elsif ($_ eq ".\r\n") {
+               $body .= ". \r\n";
+               }
+       else {
+               $body .= $_;
+               }
        }
 
 # read the filter file