# HG changeset patch
# User heiko
# Date 1193962136 0
# Node ID 02c6b4c97bd040b2136f035e0d93da081147b60b
# Parent  82cb1c6e227407f99e01dfbf0296be1535e148e0
- retab
- Hinzufuegen: Content-Disposition: inline

diff -r 82cb1c6e2274 -r 02c6b4c97bd0 mimecut.pl
--- a/mimecut.pl	Thu Nov 01 21:51:49 2007 +0000
+++ b/mimecut.pl	Fri Nov 02 00:08:56 2007 +0000
@@ -93,7 +93,7 @@
         (undef, $boundary)
             = ($header{"content-type"} =~ /boundary=(['"])(.*?)\1/);
         ### h{content-type}:  $header{"content-type"}
-        ### type:	      $type
+        ### type:         $type
         ### bound:            $boundary
     }
     $boundary ||= $arg{boundary};
@@ -121,8 +121,9 @@
     $header =~ s/\s*$//;
     $header =~ s/^/-- /gm;
 
-    print "Content-Type: text/plain"
-        . $eol x 2
+    print "Content-Type: text/plain$eol"
+        . "Content-Disposition: inline$eol"
+        . $eol
         . "Content removed ("
         . localtime() . ")$eol"
         . $header
@@ -162,8 +163,8 @@
     return $tmp;
 }
 
-# in:	current message file handle
-# out:	($orignal_header, %parsed_header)
+# in:   current message file handle
+# out:  ($orignal_header, %parsed_header)
 sub read_header(*) {
     my ($msg) = @_;
     my $h = "";
@@ -185,4 +186,4 @@
                 ":unix_from:" => split(/^(\S+):\s*/m, $_));
 }
 __END__
-# vim:ts=4
+# vim:ts=4 et: