# -*- 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
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 = {};
# -*- 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
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];