SF.net SVN: ledger-smb: [1775] branches/1.2/LedgerSMB/Mailer.pm

[..hidden..]

Revision: 1775
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1775&view=rev
Author:   tetragon
Date:     2007-10-17 14:02:11 -0700 (Wed, 17 Oct 2007)

Log Message:
-----------
Body encoding adjustments

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Mailer.pm

Modified: branches/1.2/LedgerSMB/Mailer.pm
===================================================================
--- branches/1.2/LedgerSMB/Mailer.pm	2007-10-17 20:29:11 UTC (rev 1774)
+++ branches/1.2/LedgerSMB/Mailer.pm	2007-10-17 21:02:11 UTC (rev 1775)
@@ -72,7 +72,8 @@
         'Bcc'     => $self->{bcc},
         'Subject' => Encode::encode('MIME-Header', $self->{subject}),
         'Type'    => 'TEXT',
-        'Data'    => $self->{message},
+	'Data'    => Encode::encode_utf8($self->{message}),
+	'Encoding' => '8bit',
         'Message-ID' => $msg_id,
     );
     $msg->attr("Content-Type" => $self->{contenttype});
@@ -81,6 +82,7 @@
     $msg->add( 'Disposition-Notification-To' => $self->{from} )
       if $self->{notify};
     $msg->replace( 'X-Mailer' => "LedgerSMB $self->{version}" );
+    $msg->binmode(':utf8');
 
     if ( @{ $self->{attachments} } ) {
         foreach my $attachment ( @{ $self->{attachments} } ) {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.