From 2b72c107ecae2760325bbb2b6e4d62408ba3329a Mon Sep 17 00:00:00 2001
From: Lee Aylward <lee@laylward.com>
Date: Tue, 11 Oct 2011 16:23:33 -0500
Subject: [PATCH] fix message sending

---
 lib/Alice.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/lib/Alice.pm b/lib/Alice.pm
index fd76551d..58178e5e 100644
--- a/lib/Alice.pm
+++ b/lib/Alice.pm
@@ -363,6 +363,21 @@ sub format_info {
   $self->info_window->format_message($session, $body, %options);
 }
 
+sub send_message {
+  my ($self, $window, $nick, $body) = @_;
+
+  my $connection = $self->get_irc($window->network);
+  my %options = (
+    mono => $self->is_monospace_nick($nick),
+    self => $connection->nick eq $nick,
+    avatar => $connection->nick_avatar($nick) || "",
+    highlight => $self->is_highlight($connection->nick, $body),
+  );
+
+  my $message = $window->format_message($nick, $body, %options);
+  $self->broadcast($message);
+}
+
 sub broadcast {
   my ($self, @messages) = @_;
   return if $self->no_streams or !@messages;