Complete buffer cleanup.

diff --git a/lib/Keitairc/IrcBuffer.pm b/lib/Keitairc/IrcBuffer.pm
index 0448bd0..8504fe5 100644 (file)
--- a/lib/Keitairc/IrcBuffer.pm
+++ b/lib/Keitairc/IrcBuffer.pm
@@ -1,6 +1,6 @@
 # -*-perl-*-
 # Keitairc::IrcBuffer
-# $Id: IrcBuffer.pm,v 1.11 2008-02-25 17:02:31 morimoto Exp $
+# $Id: IrcBuffer.pm,v 1.12 2008-05-08 14:53:38 matusita Exp $
 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/lib/Keitairc/IrcBuffer.pm,v $
 #
 # Copyright (c) 2008 Jun Morimoto <morimoto@mrmt.net>
@@ -141,6 +141,11 @@ sub cid2name{
 sub part{
        my($me, $cid) = @_;
        delete $me->{cid2name}->{$cid};
+       delete $me->{name2cid}->{$cid};
+       delete $me->{topic}->{$cid};
+       delete $me->{nicks}->{$cid};
+       delete $me->{buffer}->{$cid};
+       delete $me->{unread}->{$cid};
 }
 
 ################################################################