Entry速読用Filter#3

条件判定が変なところがあったので修正です。
タグを取り払った文字列と元の文字列を比較して、同じだったら「元の文字列はPlainテキスト」として扱ってましたが、時々すり抜けるものがあったので変更しました。

タグっぽいものがあったらに変更したので、もっとアバウトになるかもしれませんが…。

FormatText.pm

 26     my $body_text = $entry->body;

 27     unless ($self->conf->{always} && $body =~ /<.*>/){

Substr.pm

 20     my $body = $entry->body;

 21     unless ($self->conf->{always} && $body !~ /<.*>/){