Grouping incoming and outgoing messages

Hi all, I decided to try latest WLM and I really liked something that the team of WLM did. It's the grouping messages option.
This will make WLM to group the messages from the same user instead of writing in the chat window $user said: $msg every time the user sends something.

Let me show you an example:

Since download links died a few times and I really have no idea where can I upload the file, I'll just leave the code here:

GroupMessages.tcl

Code:

namespace eval ::GroupMessages {
variable last
proc init { dir } {
::plugins::RegisterPlugin GroupMessages
::plugins::RegisterEvent GroupMessages pre_msg_receive msgReceived
variable last
}

proc deinit { } {
;
}

proc msgReceived {event evpar} {
upvar 2 msg msg
upvar 2 chatid chatid
upvar 2 tmsg tmsg
upvar 2 user user
upvar 2 fontformat fontformat
variable last

if { ![info exists last($chatid)] } {
set last($chatid) $user
}
if { $last($chatid) == $user } {
::amsn::WinWrite $chatid "\n$msg" "user" $fontformat
set tmsg ""
set msg ""
} else {
set last($chatid) $user
}
}
}

plugininfo.xml

Code:

<?xml version="1.0"?>
<plugin>
<name>GroupMessages</name>
<author>Alexander Nestorov (alexandernst@gmail.com)</author>
<description>Group your incoming and outgoing messages.</description>
<amsn_version>0.97</amsn_version>
<plugin_version>0.1</plugin_version>
<plugin_file>GroupMessages.tcl</plugin_file>
<plugin_namespace>GroupMessages</plugin_namespace>
<init_procedure>init</init_procedure>
<deinit_procedure>deinit</deinit_procedure>
</plugin>