From 07266bc25d6ef1904eb159596f94179b52b32e59 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 10 Mar 2009 17:24:14 -0700
Subject: [PATCH] Mark the message copied to me as read.

---
 lib/WebGUI/Account/Inbox.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Account/Inbox.pm b/lib/WebGUI/Account/Inbox.pm
index 8f61620b6..74554a2f6 100644
--- a/lib/WebGUI/Account/Inbox.pm
+++ b/lib/WebGUI/Account/Inbox.pm
@@ -1164,13 +1164,16 @@ sub www_sendMessageSave {
     return $self->www_sendMessage($errorMsg) if $hasError;
 
     foreach my $uid (@toUsers) {
-        $inbox->addMessage({
+        my $message = $inbox->addMessage({
             message => $message,
             subject => $subject,
             userId  => $uid,
             status  => 'unread',
             sentBy  => $fromUser->userId
         });
+        if ($uid eq $session->user->userId) {
+            $message->setRead;
+        }
     }
 
     $self->appendCommonVars($var,$inbox);