Real Auto Dismount

local MOUNTERRORS,supress = {
  [SPELL_FAILED_NOT_MOUNTED] = true,
  [ERR_NOT_WHILE_MOUNTED] = true,
  [ERR_ATTACK_MOUNTED] = true,
  [ERR_TAXIPLAYERALREADYMOUNTED] = true,
  [SPELL_FAILED_NOT_FLYING] = true,
  [ERR_PETBATTLE_NOT_WHILE_FLYING] = true,
}
local f=CreateFrame("frame")
f.OnUpdate=function(self,elapsed)
  if supress then 
    supress=nil 
    f:SetScript("OnUpdate",nil) 
    return 
  end
  Dismount()
  f:SetScript("OnUpdate",nil)
end
f.OnEvent=function(self,event,...)
  if event=="UNIT_SPELLCAST_FAILED" then
    local _,_,_,_,id = ...
	if id == 129356 or id == 110668 then -- Overcome by Anger, or Fleet Winds
      supress = IsMounted() or IsFlying()
    end
  end
  if not MOUNTERRORS[...] then return end -- not an error message we care about, return immediately.
  if IsFlying() and not GetCVarBool("autoDismountFlying") then return end -- we are flying and don't have flight auto-dismount option checked, do nothing.
  if supress then supress = nil return end -- one time suppression for sha voidzones, and since we're not sure of the order of events do it both ways.
  f:SetScript("OnUpdate",f.OnUpdate) -- dismount on next frame
end
f:RegisterEvent("UI_ERROR_MESSAGE")
f:RegisterUnitEvent("UNIT_SPELLCAST_FAILED","player")
f:SetScript("OnEvent",f.OnEvent)