Revision ae20c836
Von Moritz Bunkus vor etwa 7 Jahren hinzugefügt
| SL/Mailer.pm | ||
|---|---|---|
| 36 | 36 |
use SL::Template; |
| 37 | 37 |
|
| 38 | 38 |
use strict; |
| 39 |
use Encode; |
|
| 40 | 39 |
|
| 41 | 40 |
my $num_sent = 0; |
| 42 | 41 |
|
| ... | ... | |
| 118 | 117 |
$addr_obj->phrase($phrase); |
| 119 | 118 |
} |
| 120 | 119 |
|
| 121 |
push @header_addresses, encode('MIME-Header',$addr_obj->format);
|
|
| 120 |
push @header_addresses, $addr_obj->format;
|
|
| 122 | 121 |
} |
| 123 | 122 |
|
| 124 | 123 |
push @{ $self->{headers} }, ( ucfirst($item) => join(', ', @header_addresses) ) if @header_addresses;
|
| ... | ... | |
| 233 | 232 |
$self->{charset} = 'UTF-8';
|
| 234 | 233 |
$self->{contenttype} ||= "text/plain";
|
| 235 | 234 |
$self->{headers} = [
|
| 236 |
Subject => encode('MIME-Header',$self->{subject}),
|
|
| 235 |
Subject => $self->{subject},
|
|
| 237 | 236 |
'Message-ID' => '<' . $self->_create_message_id . '>', |
| 238 | 237 |
'X-Mailer' => "kivitendo $self->{version}",
|
| 239 | 238 |
]; |
Auch abrufbar als: Unified diff
SL::Mailer: Header-Felder nicht zwei mal MIME-encoden
Das Modul Email::MIME kümmert sich bereits um das richtige MIME-Encoding
der Header. Daher darf es vorher nicht gemacht werden.