check the return value of get_first_plaintext_message()

1 files changed, 11 insertions, 2 deletions

diff --git a/fml/lib/FML/Ticket/Model/toymodel.pm b/fml/lib/FML/Ticket/Model/toymodel.pm
index e9674455..e2b025c5 100644
--- a/fml/lib/FML/Ticket/Model/toymodel.pm
+++ b/fml/lib/FML/Ticket/Model/toymodel.pm
@@ -144,10 +144,19 @@ sub update_status
 
     # entries to check
     my $subject = $header->get('subject');
-    my $message = $body->get_first_plaintext_message();
-    my $content = $message->get_content_body();
     my $pragma  = $header->get('x-ticket-pragma') || '';
 
+    my $content = '';
+    my $message = $body->get_first_plaintext_message();
+    if ( ref($message) eq 'MailingList::Messages' ) {
+	$content = $message->get_content_body();
+    }
+    else {
+	Log("Error: get_first_plaintext_message cannot get object");
+	Log("\$message = ". ref($message) );
+	Log("\$message is undef()") unless defined $message;
+    }
+
     if ($content =~ /^\s*close/ || 
 	$subject =~ /^\s*close/ || 
 	$pragma  =~ /close/      ) {