namazu-ml(avocado)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
mailnews_filter
- From: Rei FURUKAWA <furukawa@xxxxxxxxxxxxxxxx>
- Date: Thu, 27 Aug 1998 07:54:51 +0900
- X-ml-name: namazu
- X-mail-count: 01042
古川です。
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