(Fcurrent_message): New function.