Thanks, Simeon, I've tried it and it works well!
>Here's the original code from mhamail.pl (starting at line 832)
>
> ##-------------##
> ## Get Subject ##
> ##-------------##
> if ($fields{'subject'} !~ /^\s*$/) {
> ($sub = $fields{'subject'}) =~ s/\s*$//;
> } else {
> $sub = 'No Subject';
> }
>
>You could add a couple of lines after the
>
> ($sub = $fields{'subject'}) =~ s/\s*$//;
>
>as follows:
>
> ##-------------##
> ## Get Subject ##
> ##-------------##
> if ($fields{'subject'} !~ /^\s*$/) {
> ($sub = $fields{'subject'}) =~ s/\s*$//;
> $tag = 'string to be removed';
> $pat = quotemeta $tag;
> $sub =~ s/$pat//;
> } else {
> $sub = 'No Subject';
> }
>
