From c930be7df9e3cd9328ffda04170f19947133d11e Mon Sep 17 00:00:00 2001
From: Ben <im_dev@barracuda.com>
Date: Mon, 28 Dec 2009 16:58:26 -0500
Subject: [PATCH] Handle unescaped accented chars in incoming MSN presences.

---
 perl/lib/Thrasher/Protocol/Purple.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/perl/lib/Thrasher/Protocol/Purple.pm b/perl/lib/Thrasher/Protocol/Purple.pm
index beef8b0..bb5c144 100644
--- a/perl/lib/Thrasher/Protocol/Purple.pm
+++ b/perl/lib/Thrasher/Protocol/Purple.pm
@@ -202,6 +202,10 @@ sub _presence_in {
 
     my $clean_sender = $self->process_remote_username($sender);
 
+    if ($message) {
+        $message =~ s/([\x80-\xff])/'&#' . ord($1) . ';'/ge;
+    }
+
     # Nothing is done with protocol?
     my $xmpp_presence = $purple_presence_to_xmpp{$status};
     if ($xmpp_presence) {
-- 
2.11.4.GIT