--- Message.pm.old	2004-09-05 12:42:57.000000000 +0100
+++ Message.pm	2004-09-05 12:44:20.000000000 +0100
@@ -717,13 +717,19 @@
 # ---------------------------------------------------------------------------
 
 sub get_decoded_body_text_array {
-  my ($self) = @_;
+  my ($self, $decode_attachments) = @_;
 
   if (defined $self->{text_decoded}) { return $self->{text_decoded}; }
   $self->{text_decoded} = [ ];
 
   # Find all parts which are leaves
-  my @parts = $self->find_parts(qr/^(?:text|message)\b/i,1);
+  # JKF Do we want to decode all the binary attachments as well?
+  my @parts;
+  if ($decode_attachments) {
+   @parts = $self->find_parts(qr/./,1);
+  } else {
+   @parts = $self->find_parts(qr/^(?:text|message)\b/i,1);
+  }
   return $self->{text_decoded} unless @parts;
 
   # Go through each part
