| [vhffsdev] [svn] commit: r47 - trunk/vhffs-listengine/src/listengine.pl |
[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
Author: soda
Date: Sat Jun 11 11:10:46 2005
New Revision: 47
Log:
Update listengine.pl
Modified:
trunk/vhffs-listengine/src/listengine.pl
Modified: trunk/vhffs-listengine/src/listengine.pl
==============================================================================
--- trunk/vhffs-listengine/src/listengine.pl (original)
+++ trunk/vhffs-listengine/src/listengine.pl Sat Jun 11 11:10:46 2005
@@ -441,6 +441,7 @@
#Add prefix if not null
my $subject=$mail->get('Subject');
+ my $prefix=$list->get_prefix;
unless ($subject=~ /^.*\[$prefix\].*$/)
{
$mail->replace( 'Subject' , "[".$list->get_prefix."]" . " " . $mail->get('Subject') ) if( length( $list->get_prefix ) > 0 );