From 7c5d68a73282d0bde5b9c407ef61f9c36b9d1b12 Mon Sep 17 00:00:00 2001 From: Don Armstrong 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 1cf8460..05925d2 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.2