diff -urN tiarra-20040223/ChangeLog tiarra-20040223-2/ChangeLog
--- tiarra-20040223/ChangeLog	2004-02-23 11:47:36.000000000 +0900
+++ tiarra-20040223-2/ChangeLog	2004-02-23 15:36:00.000000000 +0900
@@ -1,5 +1,19 @@
 2004-02-23  Topia  <topia@clovery.jp>
 
+	* main/IrcIO/Client.pm:
+	  - RunLoop を Runloop と typo していたのを修正。
+
+	* main/IrcIO/Server.pm:
+	(_received_after_logged_in, _set_to_next_nick):
+	  - sysmsg_prefix を使うようにした。
+	(_RPL_CHANNELMODEIS):
+	  - 存在しないチャンネルが対象だったときにエラーがでるという
+	    どうしようもないミスを修正。
+
+	* main/RunLoop.pm:
+	(_multi_server_mode_changed):
+	  - sysmsg_prefix を使うようにした。
+
 	* makedoc:
 	  - sample.conf を出力するようにした。
 	  - 全体にわたってモジュール名のソートを行うようにした。
@@ -1398,7 +1412,7 @@
 
 	* これ以前のログは書いていません。
 
-#       Id: $Id: ChangeLog,v 1.131 2004/02/23 02:46:17 topia Exp $
+#       Id: $Id: ChangeLog,v 1.132 2004/02/23 06:24:20 topia Exp $
 #   Author: $Author: topia $
-#     Date: $Date: 2004/02/23 02:46:17 $
-# Revision: $Revision: 1.131 $
+#     Date: $Date: 2004/02/23 06:24:20 $
+# Revision: $Revision: 1.132 $
diff -urN tiarra-20040223/main/IrcIO/Client.pm tiarra-20040223-2/main/IrcIO/Client.pm
--- tiarra-20040223/main/IrcIO/Client.pm	2004-02-23 11:47:37.000000000 +0900
+++ tiarra-20040223-2/main/IrcIO/Client.pm	2004-02-23 15:36:00.000000000 +0900
@@ -1,5 +1,5 @@
 # -----------------------------------------------------------------------------
-# $Id: Client.pm,v 1.25 2004/02/23 02:46:18 topia Exp $
+# $Id: Client.pm,v 1.26 2004/02/23 05:41:21 topia Exp $
 # -----------------------------------------------------------------------------
 # IrcIO::Clientはクライアントからの接続を受け、
 # IRCメッセージをやり取りするクラスです。
@@ -239,10 +239,9 @@
 		my $network_name = $_->network_name;
 		my $global_nick = $_->current_nick;
 		if ($global_nick ne $current_nick) {
-		    #$send_message->('NOTICE', "*** Your global nick in $network_name is currently '$global_nick'.");
 		    $this->send_message(
 			new IRCMessage(
-			    Prefix => Runloop->shared_loop->sysmsg_prefix(qw(priv system)),
+			    Prefix => RunLoop->shared_loop->sysmsg_prefix(qw(priv system)),
 			    Command => 'NOTICE',
 			    Params => [$current_nick,
 				       "*** Your global nick in $network_name is currently '$global_nick'."]));
diff -urN tiarra-20040223/main/IrcIO/Server.pm tiarra-20040223-2/main/IrcIO/Server.pm
--- tiarra-20040223/main/IrcIO/Server.pm	2004-02-23 11:47:37.000000000 +0900
+++ tiarra-20040223-2/main/IrcIO/Server.pm	2004-02-23 15:36:00.000000000 +0900
@@ -1,5 +1,5 @@
 # -----------------------------------------------------------------------------
-# $Id: Server.pm,v 1.52 2004/02/23 02:46:19 topia Exp $
+# $Id: Server.pm,v 1.53 2004/02/23 06:24:20 topia Exp $
 # -----------------------------------------------------------------------------
 # IrcIO::ServerはIRCサーバーに接続し、IRCメッセージをやり取りするクラスです。
 # このクラスはサーバーからメッセージを受け取ってチャンネル情報や現在のnickなどを保持しますが、
@@ -438,6 +438,7 @@
 		    my $old_nick = $msg->nick;
 		    RunLoop->shared_loop->broadcast_to_clients(
 			IRCMessage->new(
+			    Prefix => RunLoop->shared_loop->sysmsg_prefix(qw(priv system)),
 			    Command => 'NOTICE',
 			    Params => [$local_nick,
 				       "*** Your global nick in ".
@@ -975,11 +976,11 @@
     my $ch = $this->{channels}->{$msg->param(1)};
     if (defined $ch) {
 	$ch->remarks('switches-are-known',1);
-    }
 
-    # switches と parameters は必ず得られると仮定して、クリア処理を行う
-    $ch->switches(undef, undef, 'clear');
-    $ch->parameters(undef, undef, 'clear');
+	# switches と parameters は必ず得られると仮定して、クリア処理を行う
+	$ch->switches(undef, undef, 'clear');
+	$ch->parameters(undef, undef, 'clear');
+    }
 
     # 鯖がMODEを実行したことにして、_MODEに処理を代行させる。
     my @args = @{$msg->params};
@@ -1003,6 +1004,7 @@
 	    Param => $next_nick));
     RunLoop->shared_loop->broadcast_to_clients(
 	new IRCMessage(
+	    Prefix => RunLoop->shared_loop->sysmsg_prefix(qw(priv system)),
 	    Command => 'NOTICE',
 	    Params => [RunLoop->shared_loop->current_nick,$msg_for_user]));
     main::printmsg($msg_for_user);
diff -urN tiarra-20040223/main/RunLoop.pm tiarra-20040223-2/main/RunLoop.pm
--- tiarra-20040223/main/RunLoop.pm	2004-02-23 11:47:37.000000000 +0900
+++ tiarra-20040223-2/main/RunLoop.pm	2004-02-23 15:36:01.000000000 +0900
@@ -1,5 +1,5 @@
 # -----------------------------------------------------------------------------
-# $Id: RunLoop.pm,v 1.53 2004/02/23 02:46:18 topia Exp $
+# $Id: RunLoop.pm,v 1.54 2004/02/23 06:24:20 topia Exp $
 # -----------------------------------------------------------------------------
 # このクラスはTiarraのメインループを実装します。
 # select()を実行し、サーバーやクライアントとのI/Oを行うのはこのクラスです。
@@ -221,6 +221,7 @@
 	q{It looks as if you would part all channels, but it's just an illusion.}) {
 	$this->broadcast_to_clients(
 	    IRCMessage->new(
+		Prefix => $this->sysmsg_prefix(qw(priv system)),
 		Command => 'NOTICE',
 		Params => [$this->current_nick, $string]));
     }