diff -u -r MIME-tools-6.200_02.orig/lib/MIME/Decoder/QuotedPrint.pm MIME-tools-6.200_02/lib/MIME/Decoder/QuotedPrint.pm
--- MIME-tools-6.200_02.orig/lib/MIME/Decoder/QuotedPrint.pm	Wed Jun  4 22:54:02 2003
+++ MIME-tools-6.200_02/lib/MIME/Decoder/QuotedPrint.pm	Wed Aug 25 16:30:52 2004
@@ -71,7 +71,7 @@
 # grow beyond 76 characters!
 #
 sub encode_qp_really {
-    my $enc = encode_qp($_[0]);
+    my $enc = encode_qp(shift, undef, not shift);
     if (length($enc) < 74) {
 	$enc =~ s/^\.$/=2E/g;         # force encoding of /^\.$/
 	$enc =~ s/^From /=46rom /g;   # force encoding of /^From /
@@ -98,11 +98,11 @@
 # encode_it IN, OUT
 #
 sub encode_it {
-    my ($self, $in, $out) = @_;
+    my ($self, $in, $out, $textual_type) = @_;
     local($_);
 
     while (defined($_ = $in->getline)) {
-	$out->print(encode_qp_really($_));
+	$out->print(encode_qp_really($_, $textual_type));
     }
     1;
 }
diff -u -r MIME-tools-6.200_02.orig/lib/MIME/Decoder.pm MIME-tools-6.200_02/lib/MIME/Decoder.pm
--- MIME-tools-6.200_02.orig/lib/MIME/Decoder.pm	Sat Jun  7 04:41:38 2003
+++ MIME-tools-6.200_02/lib/MIME/Decoder.pm	Tue Aug 24 16:37:20 2004
@@ -248,14 +248,14 @@
 =cut
 
 sub encode {
-    my ($self, $in, $out) = @_;
+    my ($self, $in, $out, $textual_type) = @_;
     
     ### Coerce old-style filehandles to legit objects, and do it!
     $in  = wraphandle($in);
     $out = wraphandle($out);
 
     ### Invoke back-end method to do the work:
-    $self->encode_it($in, $out) || 
+    $self->encode_it($in, $out, $self->encoding eq 'quoted-printable' ? ($textual_type) : ()) || 
 	die "".$self->encoding." encoding failed\n";
 }
 
diff -u -r MIME-tools-6.200_02.orig/lib/MIME/Entity.pm MIME-tools-6.200_02/lib/MIME/Entity.pm
--- MIME-tools-6.200_02.orig/lib/MIME/Entity.pm	Fri Jun 27 22:54:30 2003
+++ MIME-tools-6.200_02/lib/MIME/Entity.pm	Tue Aug 24 16:55:08 2004
@@ -1935,7 +1935,7 @@
 
     ### Output the body:
     my $IO = $self->open("r")     || die "open body: $!";
-    $decoder->encode($IO, $out)   || die "encoding failed\n";
+    $decoder->encode($IO, $out, textual_type($self->head->mime_type) ? 1 : 0)   || die "encoding failed\n";
     $IO->close;
     1;
 }