CVS: mhonarc/MHonArc/lib mhdb.pl,2.28,2.29 mhidxrc.pl,2.12,2.13 mhinit.p

Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv4468

Modified Files:
	mhdb.pl mhidxrc.pl mhinit.pl 
Log Message:
SPAMMODE activates MODIFYBODYADDRESSES.


Index: mhdb.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhdb.pl,v
retrieving revision 2.28
retrieving revision 2.29
diff -C2 -r2.28 -r2.29
*** mhdb.pl	31 Dec 2002 20:01:37 -0000	2.28
--- mhdb.pl	2 Jan 2003 04:20:05 -0000	2.29
***************
*** 439,443 ****
  
      if (ref($ref) eq 'SCALAR') {
! 	print $fh qq/\$$name='/, escape_str($$ref), qq/'/;
  	print $fh qq/ unless defined(\$$name)/  if $d;
  	print $fh qq/;\n/;
--- 439,447 ----
  
      if (ref($ref) eq 'SCALAR') {
! 	if (defined($$ref)) {
! 	    print $fh qq/\$$name='/, escape_str($$ref), qq/'/;
! 	} else {
! 	    print $fh '$',$name, '=undef';
! 	}
  	print $fh qq/ unless defined(\$$name)/  if $d;
  	print $fh qq/;\n/;

Index: mhidxrc.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhidxrc.pl,v
retrieving revision 2.12
retrieving revision 2.13
diff -C2 -r2.12 -r2.13
*** mhidxrc.pl	4 Sep 2002 04:09:30 -0000	2.12
--- mhidxrc.pl	2 Jan 2003 04:20:05 -0000	2.13
***************
*** 728,731 ****
--- 728,735 ----
  }
  
+ if (!defined($AddrModifyBodies)) {
+     $AddrModifyBodies  = 1  if $SpamMode;
+ }
+ 
  }
  

Index: mhinit.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhinit.pl,v
retrieving revision 2.42
retrieving revision 2.43
diff -C2 -r2.42 -r2.43
*** mhinit.pl	31 Dec 2002 20:01:37 -0000	2.42
--- mhinit.pl	2 Jan 2003 04:20:05 -0000	2.43
***************
*** 375,379 ****
  			 $ENV{'M2H_POSIXSTRFTIME'} : 0;
  $AddrModifyBodies  = defined($ENV{'M2H_MODIFYBODYADDRESSES'}) ?
! 			     $ENV{'M2H_MODIFYBODYADDRESSES'} : 0;
  
  if ($UNIX) {
--- 375,379 ----
  			 $ENV{'M2H_POSIXSTRFTIME'} : 0;
  $AddrModifyBodies  = defined($ENV{'M2H_MODIFYBODYADDRESSES'}) ?
! 			     $ENV{'M2H_MODIFYBODYADDRESSES'} : undef;
  
  if ($UNIX) {

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