fix free in the hypotetic case when binlog message contain NUL character in the middle

structures.c

@@ -1327,6 +1327,7 @@ void fetch_geo_message (struct message *M) {
     fetch_message_action (&M->action);
   } else {
     M->message = fetch_str_dup ();
+    M->message_len = strlen (M->message);
     fetch_message_media (&M->media);
   }
 }
@@ -1691,7 +1692,7 @@ void free_message_action (struct message_action *M) {
 
 void free_message (struct message *M) {
   if (!M->service) {
-    if (M->message) { tfree_str (M->message); }
+    if (M->message) { tfree (M->message, M->message_len + 1); }
     free_message_media (&M->media);
   } else {
     free_message_action (&M->action);