summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-17 17:00:01 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-10-17 17:00:01 +0000
commit0167a28b3c6361aa5ddf7589e86485c93f238791 (patch)
treea368d0ae54f6918c07fe829c3f733328c487a247 /LedgerSMB
parent29f9f470a738eb3bc4a9894881e47c9c7cc826f4 (diff)
Switch subject encoding module from MIME::Base64 to encode (fixes 1815075)
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1772 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/Mailer.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/LedgerSMB/Mailer.pm b/LedgerSMB/Mailer.pm
index 0e14c8f4..32d16ab3 100755
--- a/LedgerSMB/Mailer.pm
+++ b/LedgerSMB/Mailer.pm
@@ -35,6 +35,7 @@
package Mailer;
+use Encode;
use MIME::Lite;
use MIME::Base64;
use LedgerSMB::Sysconfig;
@@ -66,11 +67,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},