Attachment #391868 for bug #532812

View | Details | Raw Unified | Return to bug 532812
Collapse All | Expand All

Lines 1-4 Link Here

(-)a/CHANGES.md (+1 lines)
1	#3.2.12 2013-11-05	1	#3.2.12 2013-11-05
		2	- 2013-11-04 Fixed bug#[9832](http://bugs.otrs.org/show_bug.cgi?id=9832) - Perl 5.18.1 problems with MIME::Entity.
2	- 2013-10-31 Updated French translation, thanks to Olivier Sallou!	3	- 2013-10-31 Updated French translation, thanks to Olivier Sallou!
3	- 2013-10-31 Fixed bug#[9910](http://bugs.otrs.org/show_bug.cgi?id=9910) - Startup warnings/errors with Perl 5.18.1.	4	- 2013-10-31 Fixed bug#[9910](http://bugs.otrs.org/show_bug.cgi?id=9910) - Startup warnings/errors with Perl 5.18.1.
4	- 2013-10-29 Fixed bug#[9753](http://bugs.otrs.org/show_bug.cgi?id=9753) - META HTTP-EQUIV="Refresh" tag not stripped from HTML email.	5	- 2013-10-29 Fixed bug#[9753](http://bugs.otrs.org/show_bug.cgi?id=9753) - META HTTP-EQUIV="Refresh" tag not stripped from HTML email.

Lines 313-323 sub Send { Link Here

(-)a/Kernel/System/Email.pm (-6 / +3 lines)
313	$Header{Encoding} = $Self->{ConfigObject}->Get('SendmailEncodingForce');	313	$Header{Encoding} = $Self->{ConfigObject}->Get('SendmailEncodingForce');
314	}	314	}
315		315
316	# body encode if utf8 and base64 is used
317	if ( $Header{Encoding} =~ /utf(8\|-8)/i && $Header{Encoding} =~ /base64/i ) {
318	$Self->{EncodeObject}->EncodeOutput( \$Param{Body} );
319	}
320
321	# check and create message id	316	# check and create message id
322	if ( $Param{'Message-ID'} ) {	317	if ( $Param{'Message-ID'} ) {
323	$Header{'Message-ID'} = $Param{'Message-ID'};	318	$Header{'Message-ID'} = $Param{'Message-ID'};
Lines 339-345 sub Send { Link Here
339	);	334	);
340	}	335	}
341		336
342	# build MIME::Entity	337	# build MIME::Entity, Data should be bytes, not utf-8
		338	# see http://bugs.otrs.org/show_bug.cgi?id=9832
		339	$Self->{EncodeObject}->EncodeOutput( \$Param{Body} );
343	my $Entity = MIME::Entity->build( %Header, Data => $Param{Body} );	340	my $Entity = MIME::Entity->build( %Header, Data => $Param{Body} );
344		341
345	# set In-Reply-To and References header	342	# set In-Reply-To and References header




            Charset => 'utf8',
        },
    },
    {
        Name => 'utf8 - high unicode characters',
        Data => {
            From    => '"Служба поддержки (support)" <me@example.com>',
            To      => 'friend@example.com',
            Subject => 'Test related to bug#9832',
            Body    => "\x{2660}",
            Type    => 'text/plain',
            Charset => 'utf8',
        },
    },
);

my $Count = 0;
- 

Return to bug 532812

Lines 62-67 my @Tests = ( Link Here

(-)a/scripts/test/Email.t (-1 / +11 lines)
62	Charset => 'utf8',	62	Charset => 'utf8',
63	},	63	},
64	},	64	},
		65	{
		66	Name => 'utf8 - high unicode characters',
		67	Data => {
		68	From => '"Служба поддержки (support)" <me@example.com>',
		69	To => 'friend@example.com',
		70	Subject => 'Test related to bug#9832',
		71	Body => "\x{2660}",
		72	Type => 'text/plain',
		73	Charset => 'utf8',
		74	},
		75	},
65	);	76	);
66		77
67	my $Count = 0;	78	my $Count = 0;
68	-