Fix cut&paste bug.

diff --git a/lib/plugins/00all b/lib/plugins/00all
index 9e34f5e..e9357c9 100644 (file)
--- a/lib/plugins/00all
+++ b/lib/plugins/00all
@@ -1,7 +1,7 @@
 # -*- mode: perl; coding: utf-8 -*-
 # keitairc/lib/plugins/00all
 # チャネルの全メッセージ閲覧
-# $Id: 00all,v 1.15 2009-01-03 00:32:03 morimoto Exp $
+# $Id: 00all,v 1.16 2009-01-04 13:17:58 nyan_ Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/00all,v $
 
 # The line number (1 incremented) and filename below must be
@@ -22,7 +22,7 @@ $plugin = {
                        my ($tp, $np, $mp, $rp) = $::ib->buffer_ptr($cid);
                        if(defined $tp){
                                my @range = (0 .. @{$tp}-1);
-                               @range = reverse @range if $::cf->reverse_unread();
+                               @range = reverse @range if $::cf->reverse_message();
                                my ($last_date, $current_date) = ('', undef);
                                for my $lp (@range){
                                        my $p = {};

diff --git a/lib/plugins/00recent b/lib/plugins/00recent
index 971a08b..d2f208f 100644 (file)
--- a/lib/plugins/00recent
+++ b/lib/plugins/00recent
@@ -1,7 +1,7 @@
 # -*- mode: perl; coding: utf-8 -*-
 # keitairc/lib/plugins/00recent
 # 未読発言一覧
-# $Id: 00recent,v 1.12 2009-01-03 00:32:03 morimoto Exp $
+# $Id: 00recent,v 1.13 2009-01-04 13:17:58 nyan_ Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/plugins/00recent,v $
 
 # The line number (1 incremented) and filename below must be
@@ -26,7 +26,7 @@ $plugin = {
                                my @looop;
                                if(defined $tp){
                                        my @range = (0 .. @{$tp}-1);
-                                       @range = reverse @range if $::cf->reverse_unread();
+                                       @range = reverse @range if $::cf->reverse_recent();
                                        my ($last_date, $current_date) = ('', undef);
                                        for my $lp (@range){
                                                next if @{$rp}[$lp];