[isystem-users:00019] title view patch

[Akira TAGOH (田郷 明)<at@ff.iij4u.or.jp>]

田郷です．
一覧表示で先頭が表示されないことがあったのでパッチを作りました．
原因は RLNEW, RLSUB によって引き起こされるんですが，一覧表示だ
けこのタグの処理がされていないために起こっていたようです．


-- 田郷 明 / Akira TAGOH
--- index.cgi.orig	Sat May  6 20:05:10 2000
+++ index.cgi	Sat May  6 20:01:53 2000
@@ -643,7 +643,7 @@
 			$grp = 1; # grp mode on
 		}
 
-		if (/^NEW\s(.+)/ or /^LNEW\s\S+\s(.+)/){
+		if (/^NEW\s(.+)/ or /^LNEW\s\S+\s(.+)/ or /^RLNEW\s\S+\s\S+\s(.+)/){
 			if ($grp == 1) {
 				# GRPの内部は非表示にする
 				$grp = 2;
@@ -658,7 +658,7 @@
 			#$out .= "<li><a href=\"?$uri\">$t</a>:\n" unless ($grp);
 			$out .= "$newmark$newcount:$new1<a href=\"?$uri\">$t</a>$new2\n" unless ($grp);
 			# listingをやめた
-		} elsif (/^SUB\s(.+)/ or /^LSUB\s\S+\s(.+)/) {
+		} elsif (/^SUB\s(.+)/ or /^LSUB\s\S+\s(.+)/ or /^RLSUB\s\S+\s\S+\s(.+)/) {
 			my $t = &html_escape($1);
 			$out .= "$t \n" unless ($grp);
 		}