diff -urN tiarra-20030926/ChangeLog tiarra-20030928/ChangeLog
--- tiarra-20030926/ChangeLog	2003-09-26 21:14:49.000000000 +0900
+++ tiarra-20030928/ChangeLog	2003-10-12 08:55:04.000000000 +0900
@@ -1,3 +1,17 @@
+2003-09-28  phonohawk  <phonohawk@lycos.co.uk>
+
+	* tiarra-conf.el:
+	mmm-modeがインストールされていて、(require 'mmm-mode)または
+	(require 'mmm-auto)されている場合に、tiarra-conf用の設定を
+	行った後、それを有効にする。
+
+	mmm-modeのサイトは次のURLに。
+	http://mmm-mode.sourceforge.net/
+
+	* main/PersonalInfo.pm (remark):
+	追加。
+	これを保存するためのhashは、必要になった時まで作られない。
+
 2003-09-26  Topia  <topia@clovery.jp>
 
 	* tiarra:
@@ -928,7 +942,7 @@
 
 	* これ以前のログは書いていません。
 
-#       Id: $Id: ChangeLog,v 1.104 2003/09/26 12:07:12 topia Exp $
-#   Author: $Author: topia $
-#     Date: $Date: 2003/09/26 12:07:12 $
-# Revision: $Revision: 1.104 $
+#       Id: $Id: ChangeLog,v 1.105 2003/09/28 05:15:22 admin Exp $
+#   Author: $Author: admin $
+#     Date: $Date: 2003/09/28 05:15:22 $
+# Revision: $Revision: 1.105 $
diff -urN tiarra-20030926/NEWS tiarra-20030928/NEWS
--- tiarra-20030926/NEWS	2003-09-26 21:14:49.000000000 +0900
+++ tiarra-20030928/NEWS	2003-10-12 08:55:04.000000000 +0900
@@ -1,3 +1,13 @@
+2003-09-28  phonohawk  <phonohawk@lycos.co.uk>
+
+	* tiarra-conf.el:
+	mmm-modeがインストールされていて、(require 'mmm-mode)または
+	(require 'mmm-auto)されている場合に、tiarra-conf用の設定を
+	行った後、それを有効にする。
+
+	mmm-modeのサイトは次のURLに。
+	http://mmm-mode.sourceforge.net/
+
 2003-09-25  Topia  <topia@clovery.jp>
 
 	* このバージョン以前の Tiarra には、
diff -urN tiarra-20030926/main/PersonalInfo.pm tiarra-20030928/main/PersonalInfo.pm
--- tiarra-20030926/main/PersonalInfo.pm	2003-09-26 21:14:50.000000000 +0900
+++ tiarra-20030928/main/PersonalInfo.pm	2003-10-12 08:55:06.000000000 +0900
@@ -1,5 +1,5 @@
 # -----------------------------------------------------------------------------
-# $Id: PersonalInfo.pm,v 1.7 2003/09/22 18:02:06 admin Exp $
+# $Id: PersonalInfo.pm,v 1.8 2003/09/28 05:15:22 admin Exp $
 # -----------------------------------------------------------------------------
 # nick,username,userhost等を持つ個人情報保持クラス。
 # このオブジェクトはIrcIO::Serverが管理する。
@@ -19,6 +19,7 @@
 use constant USERHOST => 2;
 use constant REALNAME => 3;
 use constant SERVER   => 4;
+use constant REMARK   => 5;
 
 sub new {
     my ($class,%args) = @_;
@@ -35,6 +36,7 @@
     $obj->[USERHOST] = $def_or_null->($args{UserHost});
     $obj->[REALNAME] = $def_or_null->($args{RealName});
     $obj->[SERVER] = $def_or_null->($args{Server});
+    $obj->[REMARK] = undef; # HASH
 
     $obj;
 }
@@ -62,5 +64,16 @@
     }
 }
 
+sub remark {
+    my ($this, $key, $value) = @_;
+    if (defined($value) or @_ >= 3) {
+	$this->[REMARK] ||= {};
+	$this->[REMARK]{$key} = $value;
+    }
+
+    $this->[REMARK] ?
+      $this->[REMARK]{$key} : undef;
+}
+
 
 1;