1.27

diff --git a/ChangeLog b/ChangeLog
index 7a31fd8..49c4ab9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2004-09-07  Jun Morimoto  <morimoto@xantia.citroen.org>
+
+       * keitairc 1.27: \e$BL$FI%P%C%U%!$N07$$$,$*$+$7$+$C$?\e(B
+
 2004-09-04  Jun Morimoto  <morimoto@xantia.citroen.org>
 
        * kaitairc 1.26: \e$B$^$H$aFI$_$+$i!"F|K\8l$dBgJ8;z1QJ8;z$NF~$C$?%A%c\e(B

diff --git a/doc/index.html b/doc/index.html
index e2256a2..d408e84 100644 (file)
--- a/doc/index.html
+++ b/doc/index.html
@@ -10,7 +10,7 @@
 
 <p class="flushleft">
 morimoto@xantia.citroen.org<br>
-$Id: index.html,v 1.20 2004-09-03 16:11:55 morimoto Exp $
+$Id: index.html,v 1.21 2004-09-07 04:20:58 morimoto Exp $
 </p>
 
 <h2>ÀâÌÀ</h2>
@@ -180,6 +180,9 @@ OK 
 <h2>Changes</h2>
 <dl>
 
+<dt>1.27
+<dd>̤ÆɥХåե¡¤Î°·¤¤¤¬¤ª¤«¤·¤«¤Ã¤¿
+
 <dt>1.26
 <dd>¤Þ¤È¤áÆɤߤ«¤é¡¢ÆüËܸì¤äÂçʸ»ú±Ñʸ»ú¤ÎÆþ¤Ã¤¿¥Á¥ã¥Í¥ë̾¤Ë°ÜÆ°¤·¤Æȯ¸À¤¹¤ë¤È¡¢
 ¾¿Í¤â´¬¤­¹þ¤ó¤Ç¤ª¤«¤·¤¯¤·¤Æ¤·¤Þ¤Ã¤¿¤Î¤ò½¤Àµ<br>

diff --git a/keitairc b/keitairc
index b067681..cee1e04 100755 (executable)
--- a/keitairc
+++ b/keitairc
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 # keitairc
-# $Id: keitairc,v 1.26 2004-09-03 16:11:55 morimoto Exp $
+# $Id: keitairc,v 1.27 2004-09-07 04:20:58 morimoto Exp $
 #
 # Copyright (c) 2003 Jun Morimoto <morimoto@xantia.citroen.org>
 # This program is covered by the GNU General Public License 2
@@ -8,7 +8,7 @@
 # Depends: libjcode-pm-perl, libpoe-component-irc-perl,
 #   liburi-perl, libwww-perl, libappconfig-perl
 
-my $rcsid = q$Id: keitairc,v 1.26 2004-09-03 16:11:55 morimoto Exp $;
+my $rcsid = q$Id: keitairc,v 1.27 2004-09-07 04:20:58 morimoto Exp $;
 my ($version) = $rcsid =~ m#,v ([0-9.]+)#;
 
 use strict;
@@ -185,7 +185,7 @@ sub add_message{
 
     if(@tmp2 > $config->web_lines){
        $channel_recent{$canon_channel} =
-               join("\n", @tmp2[0 .. $config->web_lines-1]);
+               join("\n", @tmp2[1 .. $config->web_lines]);
     }else{
        $channel_recent{$canon_channel} = join("\n", @tmp2);
     }