automailold.txt

function AutoMail_OnLoad()
	AutoMail_button = CreateFrame("Button", "MyButton", UIParent, "UIPanelButtonTemplate")
	AutoMail_button:SetText("Open All")
	AutoMail_button:SetScript("OnClick", AutoMail)
	AutoMail_button:Hide()
	
	AutoMail_checkbox = CreateFrame("CheckButton", "MyCheckBox", UIParent, "ChatConfigCheckButtonTemplate");
	AutoMail_checkbox:SetScript("OnClick", AutoMail_OnCheck)
	AutoMail_checkbox.tooltip = "Don't Delete Letters"
	AutoMail_checkbox:Hide()
end

function AutoMail_EventHandler(event)
	if event == "MAIL_SHOW" then
		AutoMail_button:SetParent("InboxFrame")
		AutoMail_button:SetPoint("TOP", "InboxFrame", 0, -AutoMail_button:GetParent():GetHeight() / 12)
		AutoMail_button:SetSize(AutoMail_button:GetParent():GetWidth() / 4 , AutoMail_button:GetParent():GetHeight() / 20)
		AutoMail_button:Show()
		
		AutoMail_checkbox:SetParent("InboxFrame")
		AutoMail_checkbox:SetFrameLevel(AutoMail_checkbox:GetParent():GetFrameLevel() + 1)
		AutoMail_checkbox:SetPoint("TOP", "InboxFrame", AutoMail_checkbox:GetParent():GetWidth() / 4, -AutoMail_checkbox:GetParent():GetHeight() / 12)
		AutoMail_checkbox:SetSize(AutoMail_checkbox:GetParent():GetHeight() / 20 , AutoMail_checkbox:GetParent():GetHeight() / 20)
		AutoMail_checkbox:SetHitRectInsets(0,0,0,0)
		AutoMail_checkbox:Show()
	else 
		AutoMail_button:Hide()
		AutoMail_checkbox:Hide()
		automail_control = false
		automail_running = false
	end

end

-- open mail logic

automail_delete_letters = true

function AutoMail_OnCheck()
	automail_delete_letters = not automail_delete_letters
end

function OpenAllMail()
	if not automail_running then return nil end
	local shown, total = GetInboxNumItems()
	if shown < automail_start_shown then
		automail_has_changed = true
	end
	if shown - automail_index + 1 == 0 then
		automail_control = false
		InboxGetMoreMail()
		if automail_has_changed then
			AutoMail_wait(0.2, AutoMail)
		end
		automail_running = false
		automail_control = false
		return 0
	end
	local packageIcon, stationeryIcon, sender, subject, money, CODAmount, daysLeft, hasItem, wasRead, wasReturned, textCreated, canReply, isGM = GetInboxHeaderInfo(automail_index);
	if not hasItem then
		hasItem = 0
	end
	if CODAmount > 0 then
		automail_index = automail_index + 1
		AutoMail_wait(0, OpenAllMail)
		return 0
	end
	if automail_mailid == daysLeft then
		if hasItem + money == 0 and automail_delete_letters then
			DeleteInboxItem(automail_index)
		else
			automail_index = automail_index + 1
		end
	else
		automail_mailid = daysLeft
		AutoLootMailItem(automail_index)
	end
	AutoMail_wait(0.05 * (hasItem + 1), OpenAllMail)
end

function AutoMail()
	if automail_control then
		return 0
	end
	automail_running = true
	local shown, total = GetInboxNumItems()
	automail_start_shown = shown
	automail_control = true
	automail_has_changed = false
	automail_index = 1
	automail_mailid = 0
	OpenAllMail()
end


-- wait function below

local waitTable = {};
local waitFrame = nil;

function AutoMail_wait(delay, func, ...)
  if(type(delay)~="number" or type(func)~="function") then
    return false;
  end
  if(waitFrame == nil) then
    waitFrame = CreateFrame("Frame","WaitFrame", UIParent);
    waitFrame:SetScript("onUpdate",function (self,elapse)
      local count = #waitTable;
      local i = 1;
      while(i<=count) do
        local waitRecord = tremove(waitTable,i);
        local d = tremove(waitRecord,1);
        local f = tremove(waitRecord,1);
        local p = tremove(waitRecord,1);
        if(d>elapse) then
          tinsert(waitTable,i,{d-elapse,f,p});
          i = i + 1;
        else
          count = count - 1;
          f(unpack(p));
        end
      end
    end);
  end
  tinsert(waitTable,{delay,func,{...}});
  return true;
end