Developers of Sympa

[Straub Herbert <address@concealed>]

Title: AW: [sympa-dev] Bug fix: encode digest Subject header field

Hi Oliver,

i checked the file mail.pm and i think, that you mean $header instead of $data?

Probably the field variable $to can modified with MIME::Words::encode_mimewords
(see the documentation of MIME-tools).

This ist the pach (cvs Version 1.5 of mail.pm):

diff -c mail.orig.pm mail.pm
*** mail.orig.pm        Mon Jun 18 13:00:54 2001
--- mail.pm     Mon Jun 18 13:11:54 2001
***************
*** 32,38 ****
     do_log('debug2', 'mail::mailback(%s, %s)', $from, join(',', @rcpt));
 
     ## encode Subject
!    $data->{'subject'} = MIME::Words::encode_mimewords($data->{'subject'});
 
     my ($fh, $sympa_file);
 
--- 32,40 ----
     do_log('debug2', 'mail::mailback(%s, %s)', $from, join(',', @rcpt));
 
     ## encode Subject
!    $headers->{'subject'} = MIME::Words::encode_mimewords($headers->{'subject'});
!    ## encode To
!    $to=MIME::Words::encode_mimewords($to);
 
     my ($fh, $sympa_file);

Best regards
Herbert Straub

-----Ursprüngliche Nachricht-----
Von: Olivier Salaun [mailto:address@concealed]
Gesendet: Montag, 18. Juni 2001 10:38
An: Straub Herbert
Cc: 'address@concealed'
Betreff: Re: [sympa-dev] Bug fix: encode digest Subject header field

Hi,

> Straub Herbert wrote:
>
> List.pm::send_sub_to_owner:
> change the subject to encode_mimewords, because the message text in german is wrong
> (Abo-Wunsch f|r Liste).
>
> Patch for List.pm cvs version 1.100
>
> diff  List_1.100.pm List_new.pm
> 1206c1206
> <    my $subject = sprintf(Msg(8, 2, "%s subscription request"), $name);
> ---
> >    my $subject = MIME::Words::encode_mimewords(sprintf(Msg(8, 2, "%s subscription
> request"), $name));

This is also needed for other mail::mailback() calls. Therefore, I have plugged the
encode_mimewords() in mail::mailback() itself.
 
Does this concern other SMTP header fields ?

--
Olivier Salaün
Comité Réseau des Universités