[Bps-public-commit] Net-IMAP-Server branch, master, updated. 1.25-1-g107435f

[Alex M Vandiver]

The branch, master has been updated
       via  107435f582c9c13a51bbd6da36eaa0a3ffefebc4 (commit)
      from  6626a9a8f1d87f8b6ccd40d73249e7cdce72a7b7 (commit)

Summary of changes:
 lib/Net/IMAP/Server/Message.pm |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 107435f582c9c13a51bbd6da36eaa0a3ffefebc4
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Mon Dec 7 17:54:11 2009 -0500

    Content returned by `FETCH BODY[1]` should be raw, without decoding transport encoding
    
    Thanks to Jan Dvořák <jdvorak at uikt.mendelu.cz> for the catch.

diff --git a/lib/Net/IMAP/Server/Message.pm b/lib/Net/IMAP/Server/Message.pm
index 1a4d85d..3e52c0d 100644
--- a/lib/Net/IMAP/Server/Message.pm
+++ b/lib/Net/IMAP/Server/Message.pm
@@ -461,12 +461,12 @@ sub mime_select {
             $result = $copy->as_string ? $copy->as_string . "\r\n" : "";
         } elsif ( uc $_ eq "TEXT" ) {
             $mime ||= $self->mime;
-            $result = $mime->body;
+            $result = $mime->body_raw;
         } elsif ( $_ =~ /^\d+$/i ) {
             $mime ||= $self->mime;
             my @parts = $mime->parts;
             $mime   = $parts[ $_ - 1 ];
-            $result = $mime->body;
+            $result = $mime->body_raw;
         }
     }
 

-----------------------------------------------------------------------