* Properly handle \n line terminated emails

diff --git a/scripts/service.in b/scripts/service.in
index 1cf84601d521e8248c3db4149149cd9b6f0841ca..05925d2723cf1b56a94f07e81586bbe29c447e5a 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -66,7 +66,7 @@ if ($entity and $entity->head->tags) {
         @{$entity->head->header};
 
     my $entity_body = getmailbody($entity);
-    @bodylines = map {s/\r\n$//; $_;}
+    @bodylines = map {s/\r?\n$//; $_;}
         $entity_body ? $entity_body->as_lines() : ();
 } else {
     # Legacy pre-MIME code, kept around in case MIME::Parser fails.