Fixed problems with read mark. Deleted unused code

queries.c

@@ -1124,7 +1124,6 @@ static int get_history_on_answer (struct query *q UU) {
   if (q->callback) {
     ((void (*)(void *, int, int, struct tgl_message **))q->callback) (q->callback_extra, 1, sn, ML);
   }
-  tfree (ML, sizeof (void *) * n);
 
   /*for (i = n - 1; i >= 0; i--) {
     print_message (ML[i]);
@@ -1132,6 +1131,8 @@ static int get_history_on_answer (struct query *q UU) {
   if (sn > 0 && q->extra) {
     tgl_do_messages_mark_read (*(tgl_peer_id_t *)&(q->extra), ML[0]->id, 0, 0);
   }
+  
+  tfree (ML, sizeof (void *) * n);
   return 0;
 }
 
@@ -3026,7 +3027,6 @@ void tgl_do_create_group_chat (tgl_peer_id_t id, char *chat_topic, void (*callba
 }
 /* }}} */
 
-
 /* {{{ Delete msg */
 
 static int delete_msg_on_answer (struct query *q UU) {

structures.c

@@ -649,7 +649,7 @@ void tglf_fetch_message_short (struct tgl_message *M) {
     //tglu_fetch_seq ();
     fetch_int ();
 
-    bl_do_create_message_text (id, from_id, TGL_PEER_USER, to_id, date, 0, l, s);
+    bl_do_create_message_text (id, from_id, TGL_PEER_USER, to_id, date, 1, l, s);
   } else {
     fetch_int (); // id
     fetch_int (); // from_id
@@ -679,7 +679,7 @@ void tglf_fetch_message_short_chat (struct tgl_message *M) {
     //tglu_fetch_seq ();
 
     fetch_int ();
-    bl_do_create_message_text (id, from_id, TGL_PEER_CHAT, to_id, date, 0, l, s);
+    bl_do_create_message_text (id, from_id, TGL_PEER_CHAT, to_id, date, 1, l, s);
   } else {
     fetch_int (); // id
     fetch_int (); // from_id