package MIME::Entity::Ray;
use strict;
use parent 'MIME::Entity';
sub stringify_body {
    my( $self ) = @_;
    my $body = $self->SUPER::stringify_body();
    $body =~ s!\n!\r\n!g;
    return $body
};

##</code><code>##

use MIME::Entity;
my $old_stringify_body = \&MIME::Entity::stringify_body;

*MIME::Entity::stringify_body = sub {
    my( $self ) = @_;
    my $body = $self->SUPER::stringify_body();
    $body =~ s!\n!\r\n!g;
    return $body
};

##</code><code>##

   local $MIME::Entity::BOUNDARY_DELIMITER = "\r\n";