From 9e55ef40f56ed124d02fe34c402e8ecc3fd55ae5 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 17 Oct 2007 16:59:33 +0000
Subject: Switch subject encoding module from MIME::Base64 to encode (fixes
 1815075)

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1771 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Mailer.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'LedgerSMB/Mailer.pm')

diff --git a/LedgerSMB/Mailer.pm b/LedgerSMB/Mailer.pm
index 7fd7f1fb..80ffebb8 100644
--- a/LedgerSMB/Mailer.pm
+++ b/LedgerSMB/Mailer.pm
@@ -35,6 +35,7 @@
 
 package LedgerSMB::Mailer;
 
+use Encode;
 use MIME::Lite;
 use MIME::Base64;
 use LedgerSMB::Sysconfig;
@@ -63,11 +64,7 @@ sub send {
         $h{$_} = $self->{$_};
     }
 
-    $h{subject} =
-      ( $self->{subject} =~ /([\x00-\x1F]|[\x7B-\xFFFF])/ )
-      ? "Subject: =?$self->{charset}?B?"
-      . MIME::Base64::encode( $self->{subject}, "" ) . "?="
-      : "Subject: $self->{subject}";
+    $h{subject} = "Subject: ".Encode::encode('MIME-Header', $self->{subject});
 
     my $msg = MIME::Lite->new(
         'From'    => $self->{from},
-- 
cgit v1.2.3