From 2a5fd5f89224a4d052e2cf6f67a1b844975fbafa Mon Sep 17 00:00:00 2001
From: Ludovic Marcotte <lmarcotte@inverse.ca>
Date: Tue, 14 Oct 2008 17:36:04 +0000
Subject: [PATCH] We now expunge the current selected mailbox whenver we
 'leave' the mail module.

Monotone-Parent: 822260d0260bcf1547f7d38fe5a673fcdcb589ad
Monotone-Revision: addd7d5e87d3a58601c005b2b25baaecc4ac4ece

Monotone-Author: ludovic@Sophos.ca
Monotone-Date: 2008-10-14T17:36:04
Monotone-Branch: ca.inverse.sogo
---
 UI/WebServerResources/MailerUI.js | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/UI/WebServerResources/MailerUI.js b/UI/WebServerResources/MailerUI.js
index 601b0a5b7..bf15bbd58 100644
--- a/UI/WebServerResources/MailerUI.js
+++ b/UI/WebServerResources/MailerUI.js
@@ -239,6 +239,19 @@ function ml_lowlight(sender) {
 }
 
 
+function onUnload(event) {
+	var url = ApplicationBaseURL + encodeURI(Mailer.currentMailbox) + "/expunge";
+
+	new Ajax.Request(url, {
+			method: 'get',
+				onFailure: function(transport) {
+				log("Can't expunge current folder: " + transport.status);
+			}
+	});
+
+	return true;
+}
+
 /* bulk delete of messages */
 
 function onDocumentKeydown(event) {
@@ -1431,6 +1444,7 @@ function initMailer(event) {
     initMessageCheckTimer();
 		
 		Event.observe(document, "keydown", onDocumentKeydown);
+		Event.observe(window, "beforeunload", onUnload);
   }
   
 	Event.observe(window, "resize", onWindowResize);