mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib mhamain.pl,2.76,2.77

2005-05-01 17:25:48
Update of /home/users/mhonarc.org/ehood/cvs/mhonarc/mhonarc/MHonArc/lib
In directory denethor.mallorn.com:/tmp/cvs-serv11860

Modified Files:
	mhamain.pl 
Log Message:
BUG #12802 FIXED: Make sure SUBJECTSTRIPCODE applies to subject string
$fields hash.  Original subject is stored in the special key
'x-mha-org-subject' of $fields if SUBJECTSTRIPCODE enabled.  Also,
$fields is "cleaned" of any multiple subjects.  I.e.  The first Subject:
header field is used, all others are dropped.


Index: mhamain.pl
===================================================================
RCS file: /home/users/mhonarc.org/ehood/cvs/mhonarc/mhonarc/MHonArc/lib/mhamain.pl,v
retrieving revision 2.76
retrieving revision 2.77
diff -C2 -r2.76 -r2.77
*** mhamain.pl	15 Dec 2004 20:33:39 -0000	2.76
--- mhamain.pl	2 May 2005 00:25:40 -0000	2.77
***************
*** 841,847 ****
      ## Get Subject ##
      ##-------------##
!     if (defined($fields->{'subject'}) && ($fields->{'subject'}[0] =~ /\S/)) {
  	($sub = $fields->{'subject'}[0]) =~ s/\s+$//;
! 	$sub = subject_strip($sub)  if $SubStripCode;
      } else {
  	$sub = '';
--- 841,851 ----
      ## Get Subject ##
      ##-------------##
!     if (defined($fields->{'subject'})) {
  	($sub = $fields->{'subject'}[0]) =~ s/\s+$//;
! 	if ($SubStripCode) {
! 	    $fields->{'x-mha-org-subject'} = $sub;
! 	    $sub = subject_strip($sub);
! 	}
! 	$fields->{'subject'} = [ $sub ];    # Make sure only one subject
      } else {
  	$sub = '';

---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS