namazu-ml(ring)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

takehi-s@xxxxxxxxxxx (SHIOZAKI Takehiko) wrote:

>となって、後ろの方の<h6>の部分が優先されるというのはなくなりましたが、
>やはり前の方の<h2>や<h3>も出てきていません。
>これは<H1>がないからなんでしょうか?

調べてみました。とりあえず html.pl にメイル末尾のパッチを適
用すればある程度はまともになります。こんな感じ:

| 横須賀に研究開発拠点の 『NTT DoCoMo R&amp;Dセンタ』がオープ
| ン [3月27日] (c)1998 ASCII Corporation All Rights
| Reserved. ascii24 head ad news headline hardware software
| internet topics マルチメディア健康・

# ついでに v1.4 の要約作成のバグを直しました

ところで、

| <h6 ALIGN="RIGHT">(c)1998 ASCII Corporation All Rights Reserved. </h6>

の <h6> はやめた方が良いでしょう (要約に入ってしまうし、そも
そも見出しではない)。

-- Satoru Takabayashi

Index: ../lib/html.pl
===================================================================
RCS file: /home/satoru/cvsroot/namazu/lib/html.pl,v
retrieving revision 1.7
diff -c -r1.7 html.pl
*** html.pl	1999/02/25 02:10:03	1.7
--- html.pl	1999/02/25 06:44:56
***************
*** 134,143 ****
  
      for my $element (sort keys(%{$conf::Weight{'html'}})) {
  	my $tmp = "";
! 	$$contents =~ s/<($element)>([^<]*)<\/$element>/weight_element_sub($1, $2, \$tmp)/gie;
! 	$$headings .= $tmp if $element =~ /^H[1-6]$/ && ! $conf::NoHeadAbstOpt 
  	    && $tmp;
! 	my $weight = $element =~ /^H[1-6]$/ && ! $conf::NoHeadAbstOpt ? 
  	    $conf::Weight{'html'}->{$element} : $conf::Weight{'html'}->{$element} - 1;
  	$$weighted_str .= "\x7f$weight\x7f$tmp\x7f/$weight\x7f\n" if $tmp;
      }
--- 134,144 ----
  
      for my $element (sort keys(%{$conf::Weight{'html'}})) {
  	my $tmp = "";
! #	$$contents =~ s/<($element)>([^<]*)<\/$element>/weight_element_sub($1, $2, \$tmp)/gie;
! 	$$contents =~ s/<($element)>(.*?)<\/$element>/weight_element_sub($1, $2, \$tmp)/gies;
! 	$$headings .= $tmp if $element =~ /^H[1-6]$/i && ! $conf::NoHeadAbstOpt 
  	    && $tmp;
! 	my $weight = $element =~ /^H[1-6]$/i && ! $conf::NoHeadAbstOpt ? 
  	    $conf::Weight{'html'}->{$element} : $conf::Weight{'html'}->{$element} - 1;
  	$$weighted_str .= "\x7f$weight\x7f$tmp\x7f/$weight\x7f\n" if $tmp;
      }