From 7c5d68a73282d0bde5b9c407ef61f9c36b9d1b12 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 11 May 2008 19:22:02 -0700
Subject: [PATCH] * Properly handle \n line terminated emails
---
scripts/service.in | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/scripts/service.in b/scripts/service.in
index 1cf84601..05925d27 100755
--- 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.
--
2.39.5