From 3a264377562839e8d22ebf54600a6feaedf756ba Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sat, 8 Sep 2012 04:27:43 -0400
Subject: [PATCH] Initial import

---
 mystic/mutil_msgpurge.pas | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 mystic/mutil_msgpurge.pas

diff --git a/mystic/mutil_msgpurge.pas b/mystic/mutil_msgpurge.pas
new file mode 100644
index 0000000..bb298bd
--- /dev/null
+++ b/mystic/mutil_msgpurge.pas
@@ -0,0 +1,25 @@
+Unit MUTIL_MsgPurge;
+
+{$I M_OPS.PAS}
+
+Interface
+
+Procedure uPurgeMessageBases;
+
+Implementation
+
+Uses
+  m_Strings,
+  mUtil_Common,
+  mUtil_Status;
+
+Procedure uPurgeMessageBases;
+Begin
+  ProcessName   ('Purging Message Bases', True);
+  ProcessResult (rWORKING, False);
+
+  ProcessStatus ('Complete');
+  ProcessResult (rDONE, True);
+End;
+
+End.