diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 16:59:33 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-17 16:59:33 +0000 |
| commit | 9e55ef40f56ed124d02fe34c402e8ecc3fd55ae5 (patch) | |
| tree | 6224f034b68acff430bce895dc92bc1e27d0f17d | |
| parent | 45f92ca6f507b6c3f88de026849d8550d750d212 (diff) | |
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
| -rw-r--r-- | LedgerSMB/Mailer.pm | 7 |
1 files changed, 2 insertions, 5 deletions
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}, |