4 use RT::Test tests => undef;
6 diag "specials (, and ;) in MIME encoded-words aren't treated as specials";
8 # RT decodes too early in the game (i.e. before parsing), so it needs to
9 # ensure special characters in encoded words are properly escaped/quoted
12 RT->Config->Set( ParseNewMessageForTicketCcs => 1 );
15 Subject: testing mime encoded specials
16 Cc: a@example.com, =?utf8?q?d=40example.com=2ce=40example.com=3b?=
17 <b@example.com>; c@example.com
18 Content-Type: text/plain; charset=utf8
23 my ( $status, $id ) = RT::Test->send_via_mailgate($mail);
24 is( $status >> 8, 0, "The mail gateway exited normally" );
25 ok( $id, "Created ticket" );
27 my $ticket = RT::Ticket->new( RT->SystemUser );
29 ok $ticket->id, 'loaded ticket';
31 my @cc = @{$ticket->Cc->UserMembersObj->ItemsArrayRef};
32 is scalar @cc, 3, "three ccs";
33 for my $addr (qw(a b c)) {
34 ok( (scalar grep { $_->EmailAddress eq "$addr\@example.com" } @cc),