mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib mhtxthtml.pl,2.33,2.34

2003-08-07 14:27:11
Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv21137

Modified Files:
	mhtxthtml.pl 
Log Message:
Check for x-mha-content-type setting when filtering referenced parts.


Index: mhtxthtml.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhtxthtml.pl,v
retrieving revision 2.33
retrieving revision 2.34
diff -C2 -r2.33 -r2.34
*** mhtxthtml.pl	15 Jul 2003 20:12:16 -0000	2.33
--- mhtxthtml.pl	7 Aug 2003 21:24:53 -0000	2.34
***************
*** 412,417 ****
  
      # Get content-type of data and return if type is excluded
!     my $ctype = $href->{'fields'}{'content-type'}[0];
        ($ctype) = $ctype =~ m{^\s*([\w\-\./]+)};
      return ""  if readmail::MAILis_excluded($ctype);
  
--- 412,420 ----
  
      # Get content-type of data and return if type is excluded
!     my $ctype = $href->{'fields'}{'x-mha-content-type'};
!     if (!defined($ctype)) {
!       $ctype = $href->{'fields'}{'content-type'}[0];
        ($ctype) = $ctype =~ m{^\s*([\w\-\./]+)};
+     }
      return ""  if readmail::MAILis_excluded($ctype);
  

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