*** iso2022jp.pl.orig	Sat Oct 16 11:52:14 1999
--- iso2022jp.pl	Sat Oct 16 13:00:54 1999
***************
*** 63,69 ****
      my($ret, $ascii_text);
      local($_);
  
-     $ret = "<PRE>\n";
      foreach (@lines) {
  	# Process preceding ASCII text
  	while(1) {
--- 63,68 ----
***************
*** 136,142 ****
  	$ret .= "\n";
      }
  
!     $ret .= "</PRE>\n";
  
      ($ret);
  }
--- 135,143 ----
  	$ret .= "\n";
      }
  
!     if (($ret =~ tr/\n/\n/) >= 2) {
! 	$ret = "<PRE>\n" . $ret . "</PRE>\n";
!     }
  
      ($ret);
  }