From e108878a6bfe12319bb6eefe77e8970e7a5deb30 Mon Sep 17 00:00:00 2001
From: matusita <matusita@180c8125-5b33-4295-ad04-72a68a15b4cc>
Date: Thu, 8 May 2008 14:53:38 +0000
Subject: [PATCH] Complete buffer cleanup.

---
 lib/Keitairc/IrcBuffer.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lib/Keitairc/IrcBuffer.pm b/lib/Keitairc/IrcBuffer.pm
index 0448bd0..8504fe5 100644
--- 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};
 }
 
 ################################################################
-- 
2.11.0