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.