namazu-ml(avocado)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

mailnews_filter



古川です。

mknmz の中の mailnews_filter の中で、multipart の処理をしている部分が
ありますが、これだと、content-type 行が boundary の直後に来ないと、type
を認識できないようです。

# そうでないメールが私のところに来たものですから…

------------------------------ ここから ------------------------------
*** mknmz.pl.orig	Wed Aug 26 17:49:03 1998
--- mknmz.pl	Wed Aug 26 17:51:17 1998
***************
*** 788,798 ****
  	# MIME の Multipart  をそれなりに処理する
  	$boundary =~ s/(\W)/\\$1/g;
  	$$contents =~ s/This is multipart message.\n//i;
! 	$$contents =~ s/--$boundary(--)?/\xff\n\xff/g;
! 	$$contents =~ 
! 	    s/\xff\nContent-Type: (.*?)\n([^\xff]*)\xff\n/&mm($1,$2)/imge;
! 	$$contents =~ tr/\xff//d;
! 	$$contents =~ s/^\s+//;
      }
  }
  
--- 788,803 ----
  	# MIME の Multipart  をそれなりに処理する
  	$boundary =~ s/(\W)/\\$1/g;
  	$$contents =~ s/This is multipart message.\n//i;
! 	$$contents =~ s/--$boundary(--)?\n?/\xff/g;
! 	my(@part) = split(/\xff/, $$contents);
! 	$$contents = '';
! 
! 	for (@part){
! 	    if (s/^.*?\n\n//s){
! 		my($head) = $&;
! 		$$contents .= $_ if $head =~ /^content-type:.*text\/plain/mi;
! 	    }
! 	}
      }
  }
  
------------------------------ ここまで ------------------------------



-- 

                                        ヤマハ(株)ピアノプレーヤ設計課
                                                              古川 令
                                             furukawa@xxxxxxxxxxxxxxxx