Developers of Sympa

[Straub Herbert <address@concealed>]

Title: Subject Mime Encoding in Commands.pm

I found some subjects in the Commands.pm which are not mime encoded. Therefore a wrong subject is displayed in the mailclient. I correcting it with the following patch (reference version of Commans.pm is 1.17 2001/05/25 07:40:03 salaun):

*** Commands.pm.ORIG    Mon Oct 22 02:56:33 2001
--- Commands.pm Mon Oct 22 03:05:39 2001
***************
*** 18,23 ****
--- 18,24 ----
  use Fcntl;
  use DB_File;
  use Time::Local;
+ use MIME::Words;

  require 'tools.pl';

***************
*** 129,135 ****
        $data->{'is_owner'} = 1 if ($#owner > -1);
        $data->{'is_editor'} = 1 if ($#editor > -1);
 
!       $data->{'subject'} = sprintf Msg(6, 81, "User guide");
 
        &List::send_global_file("helpfile", $sender, $data);
 
--- 130,136 ----
        $data->{'is_owner'} = 1 if ($#owner > -1);
        $data->{'is_editor'} = 1 if ($#editor > -1);
 
!       $data->{'subject'} = MIME::Words::encode_mimewords(sprintf Msg(6, 81, "User guide"));
 
        &List::send_global_file("helpfile", $sender, $data);
 
***************
*** 165,171 ****
        $data->{'is_owner'} = 1 if ($#owner > -1);
        $data->{'is_editor'} = 1 if ($#editor > -1);
 
!       $data->{'subject'} = sprintf Msg(6, 81, "User guide");
 
        &List::send_global_file("helpfile", $sender, $data);
 
--- 166,172 ----
        $data->{'is_owner'} = 1 if ($#owner > -1);
        $data->{'is_editor'} = 1 if ($#editor > -1);
 
!       $data->{'subject'} = MIME::Words::encode_mimewords(sprintf Msg(6, 81, "User guide"));
 
        &List::send_global_file("helpfile", $sender, $data);
 
***************
*** 207,213 ****
        my $data = "{};
 
        $data->{'lists'} = $lists;
!       $data->{'subject'} = sprintf Msg(6, 82, "Public lists");
 
        &List::send_global_file('lists', $sender, $data);
 
--- 208,214 ----
        my $data = "{};
 
        $data->{'lists'} = $lists;
!       $data->{'subject'} = MIME::Words::encode_mimewords(sprintf Msg(6, 82, "Public lists"));
 
        &List::send_global_file('lists', $sender, $data);
 
***************
*** 248,254 ****
        my $data = "{};
 
        $data->{'lists'} = $lists;
!       $data->{'subject'} = sprintf Msg(6, 82, "Public lists");
 
        &List::send_global_file('lists', $sender, $data);
 
--- 249,255 ----
        my $data = "{};
 
        $data->{'lists'} = $lists;
!       $data->{'subject'} = MIME::Words::encode_mimewords(sprintf Msg(6, 82, "Public lists"));
 
        &List::send_global_file('lists', $sender, $data);

Regards
Herbert