Mercurial > wow > mailopener

annotate Core.lua @ 108:f5558317ced3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added an experimental option to override the CheckInbox function to delay mailbox refresh while there is still mail remaining.
author Zerotorescue
date Thu, 30 Sep 2010 15:21:38 +0200
parents d62eaa354443
children 91fe61693247
rev   line source
Zerotorescue@3 1 -- You can access this addon's object through: LibStub("AceAddon-3.0"):GetAddon("MailOpener")
Zerotorescue@3 2 local MailOpener = LibStub("AceAddon-3.0"):NewAddon("MailOpener", "AceEvent-3.0", "AceTimer-3.0");
Zerotorescue@68 3 local L = LibStub("AceLocale-3.0"):GetLocale("MailOpener");
Zerotorescue@0 4
Zerotorescue@8 5 -- You can check if MailOpener is busy with the global MailAddonBusy (if not MailAddonBusy then ...do something... end)
Zerotorescue@8 6 -- MailAddonBusy will be nil when nothing is happening or filled with the addon name when MO is working
Zerotorescue@8 7 -- Another addon can use this variable to indicate they're working too, MailOpener will then wait for that to finish
Zerotorescue@3 8
Zerotorescue@108 9 local AutoOpenMail, MailOpenerConfig, lastAmount, lastQuickAuctionsStatus, freshList, mailboxEmptySoundPlayed, mailboxEmptySoundPlayedThisVisit, hasOpenedMailAlready;
Zerotorescue@0 10
Zerotorescue@0 11 function MailOpener:OnInitialize()
Zerotorescue@31 12 self:Debug("OnInitialize");
Zerotorescue@31 13
Zerotorescue@31 14
Zerotorescue@31 15
Zerotorescue@31 16
Zerotorescue@31 17 -- SAVED VARIABLES
Zerotorescue@31 18
Zerotorescue@0 19 local defaults = {
Zerotorescue@60 20 global = {
Zerotorescue@60 21 currentTip = -1, -- even though LUA table indexes start at one, Config's OnEnable will increase this value by one the first time you run it and another 1 to adjust for the % modifier, so we still actually start at the table index 1
Zerotorescue@60 22 },
Zerotorescue@0 23 profile = {
Zerotorescue@8 24 uses = 0,
Zerotorescue@0 25 general = {
Zerotorescue@8 26 defaultStatus = "disabled", -- addon enabled, but mail opening not auto on
Zerotorescue@0 27 defaultQAStatus = "__remember",
Zerotorescue@0 28 continueOpeningStackableItems = false,
Zerotorescue@51 29 showHelpTooltips = true,
Zerotorescue@0 30 autoDisableQAAutoMail = true,
Zerotorescue@0 31 autoReenableQAAutoMail = false,
Zerotorescue@0 32 autoSetBackQAAutoMail = true,
Zerotorescue@0 33 continueOpening = false,
Zerotorescue@0 34 waitTime = 5,
Zerotorescue@0 35 initialDelay = 0.5,
Zerotorescue@108 36 overrideCheckInbox = false,
Zerotorescue@0 37 },
Zerotorescue@0 38 modules = {
Zerotorescue@31 39 BeanCounterSupport = true,
Zerotorescue@31 40 Config = false,
Zerotorescue@0 41 Collected = true,
Zerotorescue@5 42 FailSafe = true,
Zerotorescue@0 43 },
Zerotorescue@0 44 notifications = {
Zerotorescue@3 45 welcome = false,
Zerotorescue@3 46 bye = false,
Zerotorescue@0 47 finishedCurrentBatch = true,
Zerotorescue@0 48 mailboxIsEmpty = true,
Zerotorescue@0 49
Zerotorescue@0 50 skipped = {
Zerotorescue@0 51 all = true,
Zerotorescue@0 52 inventoryFull = true,
Zerotorescue@0 53 keepFreeSpaceLimit = true,
Zerotorescue@0 54 GMMail = true,
Zerotorescue@0 55 COD = true,
Zerotorescue@0 56 normalGoldMail = true,
Zerotorescue@0 57 normalItemsMail = true,
Zerotorescue@0 58 AHexpired = true,
Zerotorescue@0 59 AHsuccess = true,
Zerotorescue@0 60 AHwon = true,
Zerotorescue@0 61 AHcanceled = true,
Zerotorescue@0 62 AHoutbid = true,
Zerotorescue@0 63 other = true,
Zerotorescue@0 64 },
Zerotorescue@0 65 processed = {
Zerotorescue@0 66 all = true,
Zerotorescue@0 67 normalGoldMail = true,
Zerotorescue@0 68 normalItemsMail = true,
Zerotorescue@0 69 AHexpired = true,
Zerotorescue@0 70 AHsuccess = true,
Zerotorescue@0 71 AHwon = true,
Zerotorescue@0 72 AHcanceled = true,
Zerotorescue@0 73 AHoutbid = true,
Zerotorescue@0 74 other = true,
Zerotorescue@0 75 },
Zerotorescue@0 76
Zerotorescue@0 77 bagsFullSound = false,
Zerotorescue@0 78 bagsFullSoundFile = "Sound\\Spells\\SimonGame_Visual_BadPress.wav",
Zerotorescue@0 79 bagsFullSoundFileName = "Simon Error",
Zerotorescue@0 80 bagsFullSoundOnlyOnce = true,
Zerotorescue@42 81 bagsFullSoundOnlyOncePerMailboxVisit = false,
Zerotorescue@0 82 mailboxEmptySound = false,
Zerotorescue@0 83 mailboxEmptySoundFile = "Sound\\Spells\\SimonGame_Visual_GameStart.wav",
Zerotorescue@0 84 mailboxEmptySoundFileName = "Simon Start",
Zerotorescue@0 85 mailboxEmptySoundOnlyOnce = true,
Zerotorescue@42 86 mailboxEmptySoundOnlyOncePerMailboxVisit = false,
Zerotorescue@0 87 },
Zerotorescue@0 88 },
Zerotorescue@0 89 };
Zerotorescue@0 90
Zerotorescue@0 91 -- Register our saved variables database
Zerotorescue@0 92 self.db = LibStub("AceDB-3.0"):New("MailOpenerDB", defaults, true);
Zerotorescue@0 93
Zerotorescue@0 94
Zerotorescue@31 95
Zerotorescue@31 96
Zerotorescue@31 97
Zerotorescue@31 98 -- MODULE TOGGLING
Zerotorescue@0 99
Zerotorescue@0 100 -- Don't enable the config module until we need it
Zerotorescue@0 101 for name, module in self:IterateModules() do
Zerotorescue@31 102 if self.db.profile.modules[name] ~= nil then
Zerotorescue@0 103 if self.db.profile.modules[name] then
Zerotorescue@68 104 self:Debug(("|cff00ff00Enabling|r module: "):format(name));
Zerotorescue@0 105 else
Zerotorescue@68 106 self:Debug(("|cffff0000Disabling|r module: "):format(name));
Zerotorescue@0 107 end
Zerotorescue@0 108
Zerotorescue@0 109 module:SetEnabledState(self.db.profile.modules[name]);
Zerotorescue@0 110 end
Zerotorescue@0 111 end
Zerotorescue@0 112
Zerotorescue@31 113
Zerotorescue@31 114
Zerotorescue@31 115
Zerotorescue@31 116
Zerotorescue@31 117 -- SLASH COMMANDS
Zerotorescue@31 118
Zerotorescue@31 119 -- Disable the AddonLoader slash commands
Zerotorescue@31 120 SLASH_MO1 = nil;
Zerotorescue@31 121 SLASH_MAILOPEN1 = nil;
Zerotorescue@31 122 SLASH_MAILOPENER1 = nil;
Zerotorescue@31 123
Zerotorescue@31 124 -- Register our own slash commands
Zerotorescue@31 125 SLASH_MAILOPENER1 = "/mo";
Zerotorescue@31 126 SLASH_MAILOPENER2 = "/mailopen";
Zerotorescue@31 127 SLASH_MAILOPENER3 = "/mailopener";
Zerotorescue@31 128 SlashCmdList["MAILOPENER"] = function(msg)
Zerotorescue@31 129 MailOpener:EnableConfigModule();
Zerotorescue@31 130
Zerotorescue@31 131 MailOpenerConfig:CommandHandler(msg);
Zerotorescue@31 132 end
Zerotorescue@31 133
Zerotorescue@31 134
Zerotorescue@31 135
Zerotorescue@31 136
Zerotorescue@31 137
Zerotorescue@31 138 -- INTERFACE OPTIONS
Zerotorescue@31 139
Zerotorescue@31 140 -- Attempt to remove the interface options added by AddonLoader (if enabled)
Zerotorescue@31 141 if AddonLoader and AddonLoader.RemoveInterfaceOptions then
Zerotorescue@31 142 AddonLoader:RemoveInterfaceOptions("Mail Opener");
Zerotorescue@31 143 end
Zerotorescue@31 144
Zerotorescue@31 145 -- Now create our own options frame
Zerotorescue@31 146 local frame = CreateFrame("Frame", nil, UIParent);
Zerotorescue@31 147 frame:Hide();
Zerotorescue@31 148 frame.name = "Mail Opener";
Zerotorescue@31 149 frame:HookScript("OnShow", function(self)
Zerotorescue@31 150 -- Enable the config module
Zerotorescue@31 151 MailOpener:EnableConfigModule();
Zerotorescue@31 152
Zerotorescue@31 153 -- Load the options and add it to the blizzard interface list
Zerotorescue@31 154 MailOpenerConfig:Load();
Zerotorescue@31 155
Zerotorescue@31 156 -- Refresh the frame to instantly show the right options
Zerotorescue@31 157 InterfaceOptionsFrame_OpenToCategory(self.name)
Zerotorescue@31 158 end);
Zerotorescue@31 159 -- And add it to the interface options
Zerotorescue@31 160 InterfaceOptions_AddCategory(frame);
Zerotorescue@31 161
Zerotorescue@31 162
Zerotorescue@31 163
Zerotorescue@31 164
Zerotorescue@31 165
Zerotorescue@31 166 -- ADDON / MAIL OPENING STATUS TOGGLER
Zerotorescue@31 167
Zerotorescue@0 168 -- Make the open all checkbox
Zerotorescue@50 169 local check = CreateFrame("CheckButton", "cbMailOpenerEnable", MailFrame, "OptionsCheckButtonTemplate");
Zerotorescue@0 170 check:SetHeight(26);
Zerotorescue@0 171 check:SetWidth(26);
Zerotorescue@50 172 check:SetPoint("TOPLEFT", MailFrame, "TOPLEFT", 68, -13);
Zerotorescue@3 173 check:SetChecked(true);
Zerotorescue@0 174 check:SetHitRectInsets(0, -80, 0, 0);
Zerotorescue@91 175 check:SetScript("OnClick", function(cbSelf)
Zerotorescue@3 176 if IsShiftKeyDown() then
Zerotorescue@3 177 -- Shift key = toggle addon on or off, since addon is already on there's only one option
Zerotorescue@3 178
Zerotorescue@91 179 if not self:IsEnabled() then
Zerotorescue@91 180 self:Print(L["Shift key was held down, so |cff00ff00enabling|r the entire addon as well as automatic opening of mail."]);
Zerotorescue@3 181
Zerotorescue@91 182 self:Enable();
Zerotorescue@3 183
Zerotorescue@3 184 -- The above calls MAIL_SHOW which changes AutoOpenMail, so we can't remember the old setting
Zerotorescue@3 185 AutoOpenMail = true;
Zerotorescue@3 186
Zerotorescue@91 187 cbSelf:SetChecked(true);
Zerotorescue@3 188 else
Zerotorescue@91 189 self:Print(L["Shift key was held down, so |cffff0000disabling|r the entire addon."]);
Zerotorescue@3 190
Zerotorescue@91 191 self:Disable();
Zerotorescue@3 192
Zerotorescue@91 193 cbSelf:SetChecked(false);
Zerotorescue@3 194 end
Zerotorescue@0 195 else
Zerotorescue@3 196 -- Normal click
Zerotorescue@3 197
Zerotorescue@91 198 if cbSelf:GetChecked() then
Zerotorescue@91 199 self:Print(L["|cff00ff00Enabling|r automatic opening of mail."]);
Zerotorescue@3 200
Zerotorescue@3 201 AutoOpenMail = true;
Zerotorescue@91 202 self:ScheduleOpen(false);
Zerotorescue@3 203 else
Zerotorescue@91 204 self:Print(L["|cffff0000Disabling|r automatic opening of mail."]);
Zerotorescue@3 205
Zerotorescue@3 206 AutoOpenMail = false;
Zerotorescue@3 207 end
Zerotorescue@0 208 end
Zerotorescue@0 209 end);
Zerotorescue@68 210 check.tooltipTitle = L["Mail Opener status"];
Zerotorescue@68 211 check.tooltip = L["Toggle automatic mail opening |cff00ff00on|r or |cffff0000off|r (you can also enforce this by holding shift when opening the mailbox).\n\nYou can toggle this addon |cff00ff00on|r or |cffff0000off|r by |cfffed000shift-clicking|r this checkbox."];
Zerotorescue@91 212 check:SetScript("OnEnter", function(cbSelf)
Zerotorescue@91 213 if self.db.profile.general.showHelpTooltips then
Zerotorescue@91 214 GameTooltip:SetOwner(cbSelf, "ANCHOR_BOTTOM")
Zerotorescue@91 215 GameTooltip:SetPoint("BOTTOM", cbSelf, "BOTTOM")
Zerotorescue@91 216 GameTooltip:SetText(cbSelf.tooltipTitle, 1, .82, 0, 1)
Zerotorescue@51 217
Zerotorescue@91 218 if type(cbSelf.tooltip) == "string" then
Zerotorescue@91 219 GameTooltip:AddLine(cbSelf.tooltip, 1, 1, 1, 1);
Zerotorescue@51 220 end
Zerotorescue@51 221
Zerotorescue@51 222 GameTooltip:Show();
Zerotorescue@50 223 end
Zerotorescue@50 224 end);
Zerotorescue@91 225 check:SetScript("OnLeave", function(cbSelf)
Zerotorescue@50 226 GameTooltip:Hide();
Zerotorescue@50 227 end);
Zerotorescue@0 228
Zerotorescue@0 229 -- Get reference to the text field
Zerotorescue@0 230 local checkboxText = _G[check:GetName() .. "Text"];
Zerotorescue@68 231 checkboxText:SetText(L["Mail Opener"]);
Zerotorescue@0 232
Zerotorescue@0 233 self.cbOpenAll = check;
Zerotorescue@0 234
Zerotorescue@31 235
Zerotorescue@31 236
Zerotorescue@31 237
Zerotorescue@31 238 -- CONFIG BUTTON
Zerotorescue@31 239
Zerotorescue@0 240 -- Make the config button
Zerotorescue@0 241 local button = CreateFrame("Button", "btnMailOpenerConfig", MailFrame, "UIPanelButtonTemplate")
Zerotorescue@68 242 button:SetText(L["Config"])
Zerotorescue@0 243 button:SetHeight(23)
Zerotorescue@0 244 button:SetWidth(55)
Zerotorescue@31 245 button:SetPoint("TOPRIGHT", MailFrame, "TOPRIGHT", -55, -13);
Zerotorescue@0 246 button:SetScript("OnClick", function()
Zerotorescue@0 247 MailOpener:EnableConfigModule();
Zerotorescue@0 248
Zerotorescue@0 249 MailOpenerConfig:Show();
Zerotorescue@0 250
Zerotorescue@8 251 --BETA:if MailOpener.db.profile.uses >= 15 then
Zerotorescue@7 252 --BETA: MailOpener:ShowBetaPopup();
Zerotorescue@7 253 --BETA:end
Zerotorescue@0 254 end);
Zerotorescue@68 255 button.tooltipTitle = L["Mail Opener Config"];
Zerotorescue@68 256 button.tooltip = L["Click to open the configuration window for Mail Opener."];
Zerotorescue@91 257 button:SetScript("OnEnter", function(btnSelf)
Zerotorescue@91 258 if self.db.profile.general.showHelpTooltips then
Zerotorescue@91 259 GameTooltip:SetOwner(btnSelf, "ANCHOR_BOTTOM")
Zerotorescue@91 260 GameTooltip:SetPoint("BOTTOM", btnSelf, "TOP")
Zerotorescue@91 261 GameTooltip:SetText(btnSelf.tooltipTitle, 1, .82, 0, 1)
Zerotorescue@51 262
Zerotorescue@91 263 if type(btnSelf.tooltip) == "string" then
Zerotorescue@91 264 GameTooltip:AddLine(btnSelf.tooltip, 1, 1, 1, 1);
Zerotorescue@51 265 end
Zerotorescue@51 266
Zerotorescue@51 267 GameTooltip:Show();
Zerotorescue@50 268 end
Zerotorescue@50 269 end);
Zerotorescue@91 270 button:SetScript("OnLeave", function(btnSelf)
Zerotorescue@50 271 GameTooltip:Hide();
Zerotorescue@50 272 end);
Zerotorescue@0 273
Zerotorescue@0 274 self.btnConfig = button;
Zerotorescue@0 275
Zerotorescue@31 276
Zerotorescue@31 277
Zerotorescue@31 278
Zerotorescue@31 279
Zerotorescue@31 280 -- ADDON LOADING
Zerotorescue@31 281 -- THE BELOW WILL TAKE SOME TIME; WE WILL BE LOADING OTHER ADDONS
Zerotorescue@31 282
Zerotorescue@31 283 if select(6, GetAddOnInfo("Postal")) == nil then
Zerotorescue@31 284 self.PostalEnabled = true; -- Set this as an object variable so we can use it in our modules
Zerotorescue@0 285
Zerotorescue@31 286 -- Ensure this addon is loaded if AddonLoader is installed
Zerotorescue@31 287 if AddonLoader and AddonLoader.LoadAddOn and not Postal then
Zerotorescue@31 288 AddonLoader:LoadAddOn("Postal");
Zerotorescue@31 289 end
Zerotorescue@0 290 end
Zerotorescue@0 291
Zerotorescue@31 292 if select(6, GetAddOnInfo("QuickAuctions")) == nil then
Zerotorescue@31 293 self.QuickAuctionsEnabled = true; -- Set this as an object variable so we can use it in our modules
Zerotorescue@0 294
Zerotorescue@31 295 -- Ensure this addon is loaded if AddonLoader is installed
Zerotorescue@31 296 if AddonLoader and AddonLoader.LoadAddOn then
Zerotorescue@31 297 AddonLoader:LoadAddOn("QuickAuctions");
Zerotorescue@31 298 end
Zerotorescue@31 299 end
Zerotorescue@31 300
Zerotorescue@31 301
Zerotorescue@31 302
Zerotorescue@31 303
Zerotorescue@31 304
Zerotorescue@31 305 -- ADJUST POSITIONS
Zerotorescue@31 306
Zerotorescue@31 307 if self.QuickAuctionsEnabled then
Zerotorescue@31 308 -- QA is enabled so move the checkbox further to the right
Zerotorescue@0 309
Zerotorescue@31 310 self.cbOpenAll:SetPoint("TOPLEFT", MailFrame, "TOPLEFT", 155, -13);
Zerotorescue@31 311 end
Zerotorescue@31 312
Zerotorescue@31 313 if self.PostalEnabled then
Zerotorescue@31 314 self.btnConfig:SetPoint("TOPRIGHT", MailFrame, "TOPRIGHT", -75, -13);
Zerotorescue@31 315 end
Zerotorescue@0 316 end
Zerotorescue@0 317
Zerotorescue@0 318 function MailOpener:OnEnable()
Zerotorescue@0 319 self:RegisterEvent("MAIL_SHOW");
Zerotorescue@0 320 self:RegisterEvent("PLAYER_ENTERING_WORLD");
Zerotorescue@0 321
Zerotorescue@0 322 self.btnConfig:Show();
Zerotorescue@0 323
Zerotorescue@0 324 -- Reset variables
Zerotorescue@0 325 lastAmount = 0;
Zerotorescue@0 326 self.debugChannel = nil;
Zerotorescue@0 327
Zerotorescue@8 328 --BETA:if (self.db.profile.uses % 15) == 0 then
Zerotorescue@7 329 --BETA: -- Automatically show once every 15 uses
Zerotorescue@7 330 --BETA: self:ShowBetaPopup();
Zerotorescue@7 331 --BETA:end
Zerotorescue@0 332
Zerotorescue@0 333 -- If we were toggling this addon on while the mailbox is opened we must register all events again
Zerotorescue@0 334 if MailFrame:IsVisible() then
Zerotorescue@0 335 self:MAIL_SHOW();
Zerotorescue@0 336 end
Zerotorescue@0 337 end
Zerotorescue@0 338
Zerotorescue@0 339 function MailOpener:OnDisable()
Zerotorescue@0 340 self:UnregisterEvent("MAIL_SHOW");
Zerotorescue@0 341
Zerotorescue@0 342 self.btnConfig:Hide();
Zerotorescue@0 343
Zerotorescue@0 344 MailOpener:Stop();
Zerotorescue@0 345 end
Zerotorescue@0 346
Zerotorescue@0 347 -- We must disable Quick Auction's auto mail (if set up that way in the settings) before opening the mailbox or it will instantly start sending stuff
Zerotorescue@0 348 function MailOpener:PLAYER_ENTERING_WORLD()
Zerotorescue@0 349 self:UnregisterEvent("PLAYER_ENTERING_WORLD");
Zerotorescue@0 350
Zerotorescue@0 351 self:ToggleQAStatus();
Zerotorescue@0 352 end
Zerotorescue@0 353
Zerotorescue@0 354 -- Fired when the mailbox is opened
Zerotorescue@0 355 function MailOpener:MAIL_SHOW()
Zerotorescue@0 356 -- To stop the timer when the mailbox is closed
Zerotorescue@0 357 self:RegisterEvent("MAIL_CLOSED", "Stop");
Zerotorescue@0 358 self:RegisterEvent("PLAYER_LEAVING_WORLD", "Stop");
Zerotorescue@0 359
Zerotorescue@0 360 -- To set the timer for when to refresh again
Zerotorescue@0 361 self:RegisterEvent("MAIL_INBOX_UPDATE");
Zerotorescue@0 362
Zerotorescue@0 363 -- We need to know when opening has completed
Zerotorescue@0 364 self:RegisterMessage("MO_OPEN_COMPLETE");
Zerotorescue@0 365
Zerotorescue@19 366 if self.db.profile.uses == 0 and MailOpener.db.profile.general.defaultStatus ~= "_enabled" then
Zerotorescue@19 367 StaticPopupDialogs["MailOpenerFirstUseConfirmBox"] = {
Zerotorescue@68 368 text = L["You are using |cff15ff00Mail Opener|r for the first time. Do you wish to always |cf00ff000enable|r |cfffed000automatic mail opening when you open the mailbox|r?\n\nYou can always change the standard behavior in the General options."],
Zerotorescue@68 369 button1 = L["Yes"],
Zerotorescue@68 370 button2 = L["No"],
Zerotorescue@19 371 OnAccept = function()
Zerotorescue@19 372 MailOpener.db.profile.general.defaultStatus = "_enabled";
Zerotorescue@85 373 MailOpener:Print(L["You can always change the default status in the General config (|cff00ffff/mo c|r)."]);
Zerotorescue@19 374
Zerotorescue@85 375 MailOpener:Print(L["|cff00ff00Enabling|r automatic opening of mail."]);
Zerotorescue@19 376 MailOpener.cbOpenAll:SetChecked(true);
Zerotorescue@19 377
Zerotorescue@19 378 AutoOpenMail = true;
Zerotorescue@19 379 MailOpener:ScheduleOpen(false);
Zerotorescue@19 380 end,
Zerotorescue@91 381 OnCancel = function ()
Zerotorescue@85 382 MailOpener:Print(L["You can always change the default status in the General config (|cff00ffff/mo c|r)."]);
Zerotorescue@19 383 end,
Zerotorescue@19 384 timeout = 0,
Zerotorescue@19 385 whileDead = 1,
Zerotorescue@19 386 hideOnEscape = 1,
Zerotorescue@19 387 };
Zerotorescue@19 388 StaticPopup_Show("MailOpenerFirstUseConfirmBox");
Zerotorescue@8 389 end
Zerotorescue@8 390
Zerotorescue@8 391 self.db.profile.uses = ( self.db.profile.uses + 1 );
Zerotorescue@8 392
Zerotorescue@0 393 self:Debug("defaultStatus:" .. self.db.profile.general.defaultStatus);
Zerotorescue@0 394 -- Change the mail opening status according to our settings
Zerotorescue@0 395 if self.db.profile.general.defaultStatus == "_enabled" then
Zerotorescue@3 396 AutoOpenMail = true;
Zerotorescue@3 397 self.cbOpenAll:SetChecked(true);
Zerotorescue@3 398 elseif self.db.profile.general.defaultStatus == "disabled" then
Zerotorescue@3 399 -- Disable auto opening but leave mail opener enabled
Zerotorescue@3 400
Zerotorescue@3 401 AutoOpenMail = false;
Zerotorescue@3 402 self.cbOpenAll:SetChecked(false);
Zerotorescue@3 403 elseif self.db.profile.general.defaultStatus == "xdisabled" then
Zerotorescue@3 404 -- Disable entire addon
Zerotorescue@3 405
Zerotorescue@3 406 MailOpener:Disable();
Zerotorescue@3 407 self.cbOpenAll:SetChecked(false);
Zerotorescue@0 408 end
Zerotorescue@0 409
Zerotorescue@46 410 if IsShiftKeyDown() then
Zerotorescue@68 411 self:Print(L["|cffff0000Disabling|r automatic opening of mail, shift key was down when opening the mailbox."]);
Zerotorescue@46 412
Zerotorescue@46 413 AutoOpenMail = false;
Zerotorescue@46 414 self.cbOpenAll:SetChecked(false);
Zerotorescue@46 415 end
Zerotorescue@46 416
Zerotorescue@0 417 self:ToggleQAStatus();
Zerotorescue@0 418
Zerotorescue@0 419 -- Hide the InboxTooMuchMail warning to allow room for our mail remaining info line
Zerotorescue@0 420 InboxTooMuchMail:Hide()
Zerotorescue@0 421 InboxTooMuchMail.Show = function() end
Zerotorescue@0 422
Zerotorescue@0 423 if self.QuickAuctionsEnabled then
Zerotorescue@8 424 local QAMail = LibStub("AceAddon-3.0"):GetAddon("QuickAuctions", true):GetModule("Mail", true);
Zerotorescue@0 425
Zerotorescue@8 426 if QAMail then
Zerotorescue@8 427 -- Hide the open all button
Zerotorescue@8 428 QAMail.massOpening:Hide();
Zerotorescue@8 429 -- Hide the x mail remaining text
Zerotorescue@8 430 QAMail.totalMail:Hide();
Zerotorescue@8 431 end
Zerotorescue@0 432 end
Zerotorescue@0 433
Zerotorescue@108 434 hasOpenedMailAlready = nil;
Zerotorescue@0 435 mailboxEmptySoundPlayed = nil;
Zerotorescue@42 436 mailboxEmptySoundPlayedThisVisit = nil;
Zerotorescue@0 437
Zerotorescue@0 438 self:Recheck();
Zerotorescue@0 439
Zerotorescue@0 440 if self.db.profile.general.continueOpening then
Zerotorescue@6 441 -- Continue opening mail, but use the "initial mail opening interval" as time
Zerotorescue@6 442 self:ScheduleOpen(false);
Zerotorescue@0 443 end
Zerotorescue@0 444 end
Zerotorescue@0 445
Zerotorescue@0 446 -- Fired after a successful server sync
Zerotorescue@0 447 -- Fired when mail is deleted (which happens after taking all attachments from a mail sent by the game)
Zerotorescue@0 448 function MailOpener:MAIL_INBOX_UPDATE()
Zerotorescue@0 449 local current, total = GetInboxNumItems();
Zerotorescue@0 450
Zerotorescue@3 451 -- Calculate the amount of mail waiting that actually have attachments
Zerotorescue@3 452 -- If we just compare numbers we won't be including mail that isn't automatically deleted when opened, such as mail with attachments sent by other players
Zerotorescue@3 453 local currentMailWithAttachments = 0;
Zerotorescue@3 454 for i = 1, current do
Zerotorescue@3 455 local _, _, _, _, money, _, _, items = GetInboxHeaderInfo(i);
Zerotorescue@3 456
Zerotorescue@3 457 if (items and items > 0) or (money and money > 0) then
Zerotorescue@3 458 currentMailWithAttachments = currentMailWithAttachments + 1;
Zerotorescue@3 459 end
Zerotorescue@0 460 end
Zerotorescue@0 461
Zerotorescue@3 462 local tempLastAmount = lastAmount;
Zerotorescue@3 463 lastAmount = currentMailWithAttachments;
Zerotorescue@3 464
Zerotorescue@11 465 --if currentMailWithAttachments ~= tempLastAmount then
Zerotorescue@11 466 -- self:Debug("MAIL_INBOX_UPDATE - lastAmount:" .. tempLastAmount .. " - current:" .. currentMailWithAttachments);
Zerotorescue@11 467 --end
Zerotorescue@3 468
Zerotorescue@3 469 if currentMailWithAttachments > tempLastAmount then
Zerotorescue@0 470 -- New messages arrived in our mailbox, so this was a refresh, so set a timer
Zerotorescue@0 471
Zerotorescue@3 472 self:Debug("MO_SERVER_SYNCED");
Zerotorescue@3 473
Zerotorescue@0 474 -- Yell that we successfully synced with the server
Zerotorescue@0 475 self:SendMessage("MO_SERVER_SYNCED");
Zerotorescue@0 476
Zerotorescue@29 477 if MailAddonBusy == MailOpener:GetName() then
Zerotorescue@29 478 MailAddonBusy = nil;
Zerotorescue@29 479 end
Zerotorescue@29 480
Zerotorescue@0 481 -- This list is fresh
Zerotorescue@0 482 freshList = true;
Zerotorescue@0 483 mailboxEmptySoundPlayed = nil;
Zerotorescue@0 484
Zerotorescue@0 485 -- Stop previous timer
Zerotorescue@0 486 self:CancelTimer(self.tmrRecheck, true);
Zerotorescue@0 487 -- More will arrive in 60 seconds
Zerotorescue@0 488 self.tmrRecheck = self:ScheduleTimer(function()
Zerotorescue@0 489 self:Debug("tmrRecheck 61 finished");
Zerotorescue@0 490
Zerotorescue@0 491 -- We can get a fresh list now, so query the server
Zerotorescue@0 492 freshList = false;
Zerotorescue@0 493
Zerotorescue@0 494 -- Look for mail
Zerotorescue@0 495 self:Recheck();
Zerotorescue@0 496 end, 61);
Zerotorescue@0 497 self:Debug("tmrRecheck 61");
Zerotorescue@0 498
Zerotorescue@46 499 -- Open the current mail
Zerotorescue@46 500 self:ScheduleOpen(false);
Zerotorescue@3 501 elseif currentMailWithAttachments < tempLastAmount then
Zerotorescue@2 502 -- We lost a mail
Zerotorescue@2 503
Zerotorescue@19 504 --TODO: NYI: May need to delay this until the mail is actually deleted to keep the mail count more realtime
Zerotorescue@3 505
Zerotorescue@3 506 self:Debug("MO_MAIL_EMPTIED");
Zerotorescue@3 507
Zerotorescue@2 508 -- Yell that we successfully opened/removed a mail
Zerotorescue@3 509 self:SendMessage("MO_MAIL_EMPTIED");
Zerotorescue@3 510 elseif (currentMailWithAttachments == 50 and tempLastAmount == 50) then
Zerotorescue@46 511 -- Open the current mail
Zerotorescue@46 512 self:ScheduleOpen(false);
Zerotorescue@0 513 end
Zerotorescue@0 514 end
Zerotorescue@0 515
Zerotorescue@0 516 function MailOpener:ScheduleOpen(continued)
Zerotorescue@0 517 if lastAmount > 0 then
Zerotorescue@0 518 local waitTime;
Zerotorescue@0 519 if continued then
Zerotorescue@0 520 waitTime = self.db.profile.general.waitTime;
Zerotorescue@0 521 else
Zerotorescue@0 522 -- Even though this is not a continuation and should be instant, we set a .5 second timer to prevent multiple calls of the OpenNow function
Zerotorescue@0 523 waitTime = self.db.profile.general.initialDelay;
Zerotorescue@0 524 end
Zerotorescue@0 525
Zerotorescue@0 526 -- Stop previous timer
Zerotorescue@0 527 self:CancelTimer(self.tmrOpenNow, true);
Zerotorescue@0 528 -- Schedule the next open
Zerotorescue@0 529 self.tmrOpenNow = self:ScheduleTimer("OpenNow", waitTime);
Zerotorescue@0 530 end
Zerotorescue@0 531 end
Zerotorescue@0 532
Zerotorescue@0 533 function MailOpener:OpenNow()
Zerotorescue@8 534 self:Debug("OpenNow (" .. ((MailAddonBusy and "1") or "0") .. ")");
Zerotorescue@8 535 if MailFrame:IsVisible() and AutoOpenMail then
Zerotorescue@0 536 self:Debug("OpenNow");
Zerotorescue@0 537
Zerotorescue@0 538 -- BeanCounter is the only addon hiding the mail close button while busy, so we can look for that
Zerotorescue@31 539 --local BeanCounterActive = not InboxCloseButton:IsVisible();
Zerotorescue@0 540
Zerotorescue@31 541 --if not BeanCounterActive and not MailAddonBusy then
Zerotorescue@31 542 if not MailAddonBusy then
Zerotorescue@8 543 -- No other addon is currently active
Zerotorescue@0 544
Zerotorescue@0 545 self:CancelTimer(self.tmrTryAgain, true); -- Insurance
Zerotorescue@0 546
Zerotorescue@0 547 if QuickAuctionsAutoMail then
Zerotorescue@0 548 -- Remember the last known quick auctions status
Zerotorescue@0 549 lastQuickAuctionsStatus = QuickAuctionsAutoMail:GetChecked();
Zerotorescue@0 550 end
Zerotorescue@0 551 if self.db.profile.general.autoDisableQAAutoMail and self.QuickAuctionsEnabled and QuickAuctionsAutoMail and QuickAuctionsAutoMail:GetChecked() then
Zerotorescue@0 552 -- If auto disable "QA Auto mail" is enabled and QA's auto mail is currently toggled on, turn it off
Zerotorescue@0 553 -- We need to do this with a :click to trigger the right events
Zerotorescue@0 554
Zerotorescue@0 555 self:Debug("Turning automail |cffff0000off|r.");
Zerotorescue@0 556
Zerotorescue@0 557 QuickAuctionsAutoMail:Click();
Zerotorescue@0 558 end
Zerotorescue@0 559
Zerotorescue@8 560 MailAddonBusy = self:GetName();
Zerotorescue@0 561
Zerotorescue@0 562 self:Debug("MO_OPEN_MAIL");
Zerotorescue@0 563
Zerotorescue@0 564 -- Summon the mail opening gods
Zerotorescue@0 565 self:SendMessage("MO_OPEN_MAIL");
Zerotorescue@0 566 else
Zerotorescue@8 567 -- Another addon is ACTIVE
Zerotorescue@31 568 self:Debug("Another addon active, waiting .5 seconds... (" .. MailAddonBusy .. ")");
Zerotorescue@0 569
Zerotorescue@0 570 self:CancelTimer(self.tmrTryAgain, true); -- Insurance
Zerotorescue@8 571 -- Try again every 0.5 seconds
Zerotorescue@0 572 self.tmrTryAgain = self:ScheduleTimer("OpenNow", 0.5);
Zerotorescue@0 573 end
Zerotorescue@0 574 end
Zerotorescue@0 575 end
Zerotorescue@0 576
Zerotorescue@0 577 function MailOpener:MO_OPEN_COMPLETE()
Zerotorescue@8 578 if MailAddonBusy == self:GetName() then
Zerotorescue@8 579 MailAddonBusy = nil;
Zerotorescue@8 580 end
Zerotorescue@1 581
Zerotorescue@108 582 hasOpenedMailAlready = true;
Zerotorescue@108 583
Zerotorescue@1 584 -- Try a recheck
Zerotorescue@1 585 self:Recheck();
Zerotorescue@1 586
Zerotorescue@0 587 local current, total = GetInboxNumItems();
Zerotorescue@0 588
Zerotorescue@0 589 if (total - current) == 0 then
Zerotorescue@3 590 -- There is probably no unopenable mail remaining, so play the sound (if enabled)
Zerotorescue@3 591
Zerotorescue@42 592 if self.db.profile.notifications.mailboxEmptySound and (not MailOpener.db.profile.notifications.mailboxEmptySoundOnlyOnce or not mailboxEmptySoundPlayed) and (not MailOpener.db.profile.notifications.mailboxEmptySoundOnlyOncePerMailboxVisit or not mailboxEmptySoundPlayedThisVisit) then
Zerotorescue@0 593 PlaySoundFile(self.db.profile.notifications.mailboxEmptySoundFile);
Zerotorescue@0 594 mailboxEmptySoundPlayed = true;
Zerotorescue@42 595 mailboxEmptySoundPlayedThisVisit = true;
Zerotorescue@0 596 end
Zerotorescue@0 597 end
Zerotorescue@0 598
Zerotorescue@3 599 if self.QuickAuctionsEnabled then
Zerotorescue@3 600 -- Quick Auctions enabled?
Zerotorescue@3 601 -- Toggle automailing as per settings
Zerotorescue@0 602
Zerotorescue@3 603 if self.db.profile.general.autoReenableQAAutoMail and QuickAuctionsAutoMail and not QuickAuctionsAutoMail:GetChecked() then
Zerotorescue@3 604 -- If auto re-enable "QA Auto mail" is enabled and QA's auto mail is currently toggled OFF, turn it on
Zerotorescue@3 605 -- We need to do this with a :click to trigger the right events
Zerotorescue@3 606
Zerotorescue@0 607 self:Debug("Turning automail |cff00ff00on|r.");
Zerotorescue@3 608
Zerotorescue@3 609 QuickAuctionsAutoMail:Click();
Zerotorescue@3 610 elseif self.db.profile.general.autoSetBackQAAutoMail and QuickAuctionsAutoMail and lastQuickAuctionsStatus ~= QuickAuctionsAutoMail:GetChecked() then
Zerotorescue@3 611 -- If auto set back "QA Auto mail" is enabled and QA's auto mail is currently not the same as it was before starting, toggle it
Zerotorescue@3 612 -- We need to do this with a :click to trigger the right events
Zerotorescue@3 613
Zerotorescue@3 614 if lastQuickAuctionsStatus then
Zerotorescue@3 615 self:Debug("Turning automail |cff00ff00on|r.");
Zerotorescue@3 616 else
Zerotorescue@3 617 self:Debug("Turning automail |cffff0000off|r.");
Zerotorescue@3 618 end
Zerotorescue@3 619
Zerotorescue@3 620 QuickAuctionsAutoMail:Click();
Zerotorescue@0 621 end
Zerotorescue@0 622 end
Zerotorescue@0 623
Zerotorescue@0 624 if self.db.profile.general.continueOpening then
Zerotorescue@0 625 self:ScheduleOpen(true);
Zerotorescue@0 626 end
Zerotorescue@0 627 end
Zerotorescue@0 628
Zerotorescue@0 629 -- Run another CheckInbox
Zerotorescue@0 630 function MailOpener:Recheck()
Zerotorescue@0 631 self:Debug("|cffffff00Recheck|r");
Zerotorescue@0 632
Zerotorescue@0 633 -- Freshlist prevents this from being run too often
Zerotorescue@0 634 -- It is set to true after a server sync
Zerotorescue@0 635 -- and set to false 61 seconds afterwards with a recheck called instantly after it
Zerotorescue@3 636
Zerotorescue@3 637 -- We're not refreshing while we're opening because it is automatically done when current batch was completely opened
Zerotorescue@8 638 if not freshList and MailFrame:IsVisible() then
Zerotorescue@0 639 self:Debug("|cff00ff00Recheck|r");
Zerotorescue@0 640
Zerotorescue@0 641 -- If this isn't a fresh list (so messages weren't received within the last 60 seconds) and the mailbox wasn't closed
Zerotorescue@0 642
Zerotorescue@0 643 -- BeanCounter is the only addon hiding the mail close button while busy, so we can look for that
Zerotorescue@31 644 --local BeanCounterActive = not InboxCloseButton:IsVisible();
Zerotorescue@0 645
Zerotorescue@31 646 --if not BeanCounterActive and AutoOpenMail and not MailAddonBusy then
Zerotorescue@31 647 if AutoOpenMail and not MailAddonBusy then
Zerotorescue@0 648 -- Query the server
Zerotorescue@0 649 CheckInbox();
Zerotorescue@0 650 end
Zerotorescue@0 651
Zerotorescue@0 652 -- Stop previous timer
Zerotorescue@0 653 self:CancelTimer(self.tmrRecheck, true);
Zerotorescue@0 654 -- Keep trying until it works
Zerotorescue@0 655 self.tmrRecheck = self:ScheduleTimer("Recheck", 2);
Zerotorescue@0 656
Zerotorescue@0 657 self:Debug("tmrRecheck 2");
Zerotorescue@0 658 end
Zerotorescue@0 659 end
Zerotorescue@0 660
Zerotorescue@0 661 -- Stop checking for new mail and unregister the events we needed
Zerotorescue@0 662 function MailOpener:Stop()
Zerotorescue@8 663 if MailAddonBusy == self:GetName() then
Zerotorescue@8 664 MailAddonBusy = nil;
Zerotorescue@8 665 end
Zerotorescue@0 666
Zerotorescue@108 667 hasOpenedMailAlready = nil;
Zerotorescue@108 668
Zerotorescue@0 669 -- We won't need this anymore
Zerotorescue@0 670 self:UnregisterEvent("MAIL_CLOSED");
Zerotorescue@0 671 self:UnregisterEvent("PLAYER_LEAVING_WORLD");
Zerotorescue@0 672 self:UnregisterEvent("MAIL_INBOX_UPDATE");
Zerotorescue@0 673
Zerotorescue@0 674 -- Messages
Zerotorescue@0 675 self:UnregisterMessage("MO_OPEN_COMPLETE");
Zerotorescue@0 676
Zerotorescue@0 677 -- Timers
Zerotorescue@0 678 self:CancelTimer(self.tmrTryAgain, true);
Zerotorescue@0 679 self:CancelTimer(self.tmrOpenNow, true);
Zerotorescue@0 680
Zerotorescue@0 681 -- If we wait with disabling QA automail until MAIL_SHOW, QA will beat us to it and already start sending stuff
Zerotorescue@0 682 self:ToggleQAStatus();
Zerotorescue@0 683 end
Zerotorescue@0 684
Zerotorescue@0 685 function MailOpener:Debug(t)
Zerotorescue@0 686 if not self.debugChannel and self.debugChannel ~= false then
Zerotorescue@0 687 -- We want to check just once, so if you add a debug channel later just do a /reload (registering an event for this is wasted resources)
Zerotorescue@0 688 self.debugChannel = false;
Zerotorescue@0 689
Zerotorescue@0 690 for i = 1, NUM_CHAT_WINDOWS do
Zerotorescue@0 691 local name = GetChatWindowInfo(i);
Zerotorescue@0 692
Zerotorescue@0 693 if name:upper() == "DEBUG" then
Zerotorescue@0 694 self.debugChannel = _G["ChatFrame" .. i];
Zerotorescue@0 695 end
Zerotorescue@0 696 end
Zerotorescue@0 697 end
Zerotorescue@0 698
Zerotorescue@0 699 if self.debugChannel then
Zerotorescue@0 700 self.debugChannel:AddMessage(t);
Zerotorescue@0 701 end
Zerotorescue@0 702 end
Zerotorescue@0 703
Zerotorescue@68 704 function MailOpener:Print(text)
Zerotorescue@68 705 print(L["|cff15ff00Mail Opener|r: %s"]:format(text));
Zerotorescue@68 706 end
Zerotorescue@68 707
Zerotorescue@0 708 -- Enable our config module if it's disabled and make a reference to it
Zerotorescue@0 709 function MailOpener:EnableConfigModule()
Zerotorescue@0 710 if not MailOpenerConfig then
Zerotorescue@0 711 MailOpenerConfig = self:GetModule("Config");
Zerotorescue@0 712 MailOpenerConfig:Enable();
Zerotorescue@0 713 end
Zerotorescue@0 714 end
Zerotorescue@0 715
Zerotorescue@0 716 -- Toggle Postal's opening modules on or off
Zerotorescue@0 717 function MailOpener:TogglePostalModule(name, status)
Zerotorescue@60 718 if self.PostalEnabled and Postal then
Zerotorescue@0 719 -- Postal must be enabled
Zerotorescue@0 720
Zerotorescue@3 721 -- Toggle module (let Postal handle this)
Zerotorescue@3 722 Postal.ToggleModule(nil, name, Postal:GetModule(name), status);
Zerotorescue@0 723 end
Zerotorescue@0 724 end
Zerotorescue@0 725
Zerotorescue@0 726 -- Change Quick Auction's auto mail status based on our prefered settings
Zerotorescue@0 727 function MailOpener:ToggleQAStatus()
Zerotorescue@0 728 self:Debug("defaultQAStatus:" .. self.db.profile.general.defaultQAStatus);
Zerotorescue@0 729
Zerotorescue@0 730 if self.QuickAuctionsEnabled and self.db.profile.general.defaultQAStatus ~= "__remember" and QuickAuctionsAutoMail then
Zerotorescue@0 731 if self.db.profile.general.defaultQAStatus == "_enabled" and not QuickAuctionsAutoMail:GetChecked() then
Zerotorescue@0 732 self:Debug("Turning automail |cff00ff00on|r.");
Zerotorescue@0 733
Zerotorescue@0 734 QuickAuctionsAutoMail:Click();
Zerotorescue@0 735 elseif self.db.profile.general.defaultQAStatus == "disabled" and QuickAuctionsAutoMail:GetChecked() then
Zerotorescue@0 736 self:Debug("Turning automail |cffff0000off|r.");
Zerotorescue@0 737
Zerotorescue@0 738 QuickAuctionsAutoMail:Click();
Zerotorescue@0 739 end
Zerotorescue@0 740 end
Zerotorescue@0 741 end
Zerotorescue@0 742
Zerotorescue@0 743 function MailOpener:FormatMoney(copper)
Zerotorescue@0 744 local gold = floor( copper / 10000 );
Zerotorescue@0 745 local silver = floor( ( copper - ( gold * 10000 ) ) / 100 );
Zerotorescue@0 746 local copper = mod(copper, 100);
Zerotorescue@0 747
Zerotorescue@0 748 if gold > 0 then
Zerotorescue@0 749 return format(GOLD_AMOUNT_TEXTURE .. " " .. SILVER_AMOUNT_TEXTURE .. " " .. COPPER_AMOUNT_TEXTURE, gold, 0, 0, silver, 0, 0, copper, 0, 0);
Zerotorescue@0 750 elseif silver > 0 then
Zerotorescue@0 751 return format(SILVER_AMOUNT_TEXTURE .. " " .. COPPER_AMOUNT_TEXTURE, silver, 0, 0, copper, 0, 0);
Zerotorescue@0 752 else
Zerotorescue@0 753 return format(COPPER_AMOUNT_TEXTURE, copper, 0, 0);
Zerotorescue@0 754 end
Zerotorescue@0 755 end
Zerotorescue@0 756
Zerotorescue@7 757 -- General copy window for multiple things (clickable URLs, the time remaining, and such)
Zerotorescue@0 758 StaticPopupDialogs["MailOpenerCopyWindow"] = {
Zerotorescue@68 759 text = L["Press CTRL-C to copy."],
Zerotorescue@0 760 button2 = CLOSE,
Zerotorescue@0 761 hasEditBox = 1,
Zerotorescue@0 762 hasWideEditBox = 1,
Zerotorescue@0 763 OnShow = function()
Zerotorescue@0 764 local editBox = _G[this:GetName().."WideEditBox"];
Zerotorescue@0 765 if editBox and MailOpener.currentPopupContents then
Zerotorescue@0 766 editBox:SetText(MailOpener.currentPopupContents);
Zerotorescue@0 767 editBox:SetFocus();
Zerotorescue@0 768 editBox:HighlightText(0);
Zerotorescue@0 769 end
Zerotorescue@0 770
Zerotorescue@0 771 -- Position the close button in the middle
Zerotorescue@0 772 local button = _G[this:GetName().."Button2"];
Zerotorescue@0 773 if button then
Zerotorescue@0 774 -- Remove previous know position
Zerotorescue@0 775 button:ClearAllPoints();
Zerotorescue@0 776 button:SetWidth(200);
Zerotorescue@0 777 -- Reposition in the center
Zerotorescue@0 778 button:SetPoint("CENTER", editBox, "CENTER", 0, -30);
Zerotorescue@0 779 end
Zerotorescue@0 780 end,
Zerotorescue@92 781 EditBoxOnEscapePressed = function(self)
Zerotorescue@92 782 self:GetParent():Hide();
Zerotorescue@0 783 end,
Zerotorescue@0 784 timeout = 0,
Zerotorescue@0 785 whileDead = 1,
Zerotorescue@0 786 hideOnEscape = 1,
Zerotorescue@0 787 maxLetters = 1024,
Zerotorescue@1 788 };
Zerotorescue@1 789
Zerotorescue@0 790
Zerotorescue@108 791 -- The idea for this is to wait with refresing while there is still mail remaining which can be opened
Zerotorescue@108 792 -- This should speed things up a tiny bit, but might become buggy if coded wrong
Zerotorescue@108 793 local originalCheckInbox = CheckInbox;
Zerotorescue@108 794 function CheckInbox(...)
Zerotorescue@108 795 if not MailOpener.db.profile.general.overrideCheckInbox or not MailOpener.db.profile.general.continueOpening or lastAmount == 0 then
Zerotorescue@108 796 -- If the override Check Inbox option is off
Zerotorescue@108 797 -- or continuous opening is off
Zerotorescue@108 798 -- or there's currently no mail visible
Zerotorescue@0 799
Zerotorescue@108 800 MailOpener:Debug("CheckInbox:" .. tostring(MailOpener.db.profile.general.overrideCheckInbox) .. "/" .. tostring(MailOpener.db.profile.general.continueOpening) .. "/" .. tostring(lastAmount == 0));
Zerotorescue@0 801
Zerotorescue@108 802 -- Just call the original function
Zerotorescue@108 803 return originalCheckInbox(...);
Zerotorescue@0 804 end
Zerotorescue@0 805
Zerotorescue@108 806 if not hasOpenedMailAlready then
Zerotorescue@108 807 -- If MO hasn't opened mail yet, we wait.
Zerotorescue@108 808 -- MO will call this function when mail opening is done
Zerotorescue@0 809
Zerotorescue@108 810 MailOpener:Debug("CheckInbox:Waiting...");
Zerotorescue@0 811
Zerotorescue@108 812 return false;
Zerotorescue@108 813 else
Zerotorescue@108 814 MailOpener:Debug("CheckInbox:Refresh!");
Zerotorescue@108 815
Zerotorescue@108 816 return originalCheckInbox(...);
Zerotorescue@108 817 end
Zerotorescue@108 818 end