let previous_message_story (() : unit) =
        let tmp = (!match_message_story) in
        match_message_story:=(!latest_message_story);
        latest_message_story:=tmp