Improve all remaining translations for tww 11.1.5 and fix speech frame

Addon/Code/Speech.lua

@@ -18,10 +18,9 @@ local function ReflowMessages(requery)
         return
     end
 
-    if #messages == 1 then
-        local Frame = messages[1]
+    for i = #messages, 1, -1 do
+        local Frame = messages[i]
         ShowSpeech(Frame, offsetY)
-        Frame:Show()
         local height = Frame.Message:GetStringHeight()
         if height == 0 and not requery then
             Frame:Hide()
@@ -30,11 +29,6 @@ local function ReflowMessages(requery)
             end)
             return
         end
-    end
-
-    for i = #messages, 1, -1 do
-        local Frame = messages[i]
-        ShowSpeech(Frame, offsetY)
         offsetY = offsetY + Frame:GetHeight() + GAP
     end
 end
@@ -49,8 +43,8 @@ local function RemoveMessage(frame)
             fadeOut:SetDuration(1)
             fadeOut:SetStartDelay(0)
             animation:SetScript("OnFinished", function()
-                table.remove(messages, i)
                 fs:Hide()
+                table.remove(messages, i)
                 ReflowMessages()
             end)
             animation:Play()
@@ -69,7 +63,11 @@ local function AddMessage(sender, message)
     table.insert(messages, MessageFrame)
     ReflowMessages()
 
-    C_Timer.After(20, function()
+    MessageFrame:SetScript("OnMouseDown", function()
+        RemoveMessage(MessageFrame)
+    end)
+
+    C_Timer.After(15, function()
         RemoveMessage(MessageFrame)
     end)
 end