inetcomm: Give a name to the critical sections and delete them when done.

[Francois Gouget]

---
 dlls/inetcomm/mimeintl.c |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diff --git a/dlls/inetcomm/mimeintl.c b/dlls/inetcomm/mimeintl.c
index 1b15251..07d3ae5 100644
--- a/dlls/inetcomm/mimeintl.c
+++ b/dlls/inetcomm/mimeintl.c
@@ -104,6 +104,8 @@ static ULONG WINAPI MimeInternat_Release( IMimeInternational *iface )
             list_remove(&charset->entry);
             HeapFree(GetProcessHeap(), 0, charset);
         }
+        This->cs.DebugInfo->Spare[0] = 0;
+        DeleteCriticalSection(&This->cs);
         HeapFree(GetProcessHeap(), 0, This);
     }
 
@@ -527,6 +529,7 @@ HRESULT MimeInternational_Construct(IMimeInternational **internat)
     global_internat->IMimeInternational_iface.lpVtbl = &mime_internat_vtbl;
     global_internat->refs = 0;
     InitializeCriticalSection(&global_internat->cs);
+    global_internat->cs.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": global_internat.cs");
 
     list_init(&global_internat->charsets);
     global_internat->next_charset_handle = 0;
-- 
1.7.7.1