[vhffs-dev] [2290] listengine: fixed List-Id: field format

[subversion@xxxxxxxxxxxxx]

Revision: 2290
Author:   gradator
Date:     2015-10-28 22:17:03 +0100 (Wed, 28 Oct 2015)
Log Message:
-----------
listengine: fixed List-Id: field format

RFC 2919 says:
"The contents of the List-Id header mostly consist of angle-bracket 
('<', '>') enclosed identifier, with internal whitespace being ignored."

Modified Paths:
--------------
    trunk/vhffs-listengine/src/listengine.pl

Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl	2015-10-14 15:06:56 UTC (rev 2289)
+++ trunk/vhffs-listengine/src/listengine.pl	2015-10-28 21:17:03 UTC (rev 2290)
@@ -84,7 +84,7 @@
     $header->replace( 'List-Subscribe' ,'<mailto:'.$list->get_listrequestname.'?subject=subscribe>' );
     $header->replace( 'List-Help' ,'<mailto:'.$list->get_listrequestname.'?subject=help>' );
     $header->replace( 'List-Software' , 'Listengine, VHFFS '.Vhffs::Constants::VHFFS_VERSION );
-    $header->replace( 'List-Id' , $list->get_localpart.'.'.$list->get_domain );
+    $header->replace( 'List-Id' , '<'.$list->get_localpart.'.'.$list->get_domain.'>' );
     $header->replace( 'List-Post' , '<mailto:'.$list->get_listname.'>' );
     $header->replace( 'List-Archive' , '<'.$mailinglistconfig->{'url_archives'}.'/'.$list->get_domain.'/'.$list->get_localpart.'>' ) if( $mailinglistconfig->{'url_archives'} );
     $header->replace( 'Precedence' , 'list' );