* fix chomp wrongness

diff --git a/scripts/process.in b/scripts/process.in
index 60e53dd2ed543aa7e953ce43a9ff1992a7e34554..e17127b8831e2eb61882263afb5490bde1caf1bd 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -104,8 +104,8 @@ if ($entity and $entity->head->tags) {
     chomp @headerlines;
 
     my $entity_body = getmailbody($entity);
-    @bodylines = $entity_body ? $entity_body->as_lines() : ();
-    chomp @bodylines;
+    @bodylines = map {s/\r?\n$//; $_;}
+        $entity_body ? $entity_body->as_lines() : ();
 
     # set $i to beginning of encoded body data, so we can dump it out
     # verbatim later