| [vhffs-dev] [686] Add some header to mails sent to subscriber to allows detection of mailing list in MUA |
[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
- To: vhffs-dev@xxxxxxxxx
- Subject: [vhffs-dev] [686] Add some header to mails sent to subscriber to allows detection of mailing list in MUA
- From: subversion@xxxxxxxxx
- Date: Sun, 08 Jul 2007 03:14:05 +0200
Revision: 686
Author: gradator
Date: 2007-07-08 01:14:03 +0000 (Sun, 08 Jul 2007)
Log Message:
-----------
Add some header to mails sent to subscriber to allows detection of mailing list in MUA
Modified Paths:
--------------
trunk/vhffs-listengine/src/listengine.pl
Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl 2007-07-07 22:15:51 UTC (rev 685)
+++ trunk/vhffs-listengine/src/listengine.pl 2007-07-08 01:14:03 UTC (rev 686)
@@ -76,8 +76,10 @@
$header->replace( 'List-Unsubscribe' ,"<mailto:".$list->get_localpart."-request"."\@".$list->get_domain."?subject=unsubscribe>" );
$header->replace( 'List-Subscribe' ,"<mailto:".$list->get_localpart."-request"."\@".$list->get_domain."?subject=subscribe>" );
$header->replace( 'List-Help' ,"<mailto:".$list->get_localpart."-request"."\@".$list->get_domain."?subject=help>" );
- $header->replace( 'List-Software' ,"Listengine 4.0, VHFFS 4.0" );
+ $header->replace( 'List-Software' ,"Listengine 4.1, VHFFS 4.1" );
$header->replace( 'List-Id' , $list->get_localpart.".".$list->get_domain );
+ $header->replace( 'List-Post' , '<mailto:'.$list->get_localpart."@".$list->get_domain.'>' );
+ $header->replace( 'List-Archive' , '<'.$vhffs->get_config->get_www_archives.'/'.$list->get_domain.'/'.$list->get_localpart.'>' ) if( $list->get_open_archive );
}