Initial Upload

Initial Upload

_module/nss/mail_reply.nss

@@ -0,0 +1,30 @@
+//::///////////////////////////////////////////////
+//:: Mail - Reply
+//:: mail_reply.nss
+//:: Copyright (c) 2003 Jake E. Fitch
+//:://////////////////////////////////////////////
+/*
+    Reply to the message.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Jake E. Fitch (Milambus Mandragon)
+//:: Created On:
+//:://////////////////////////////////////////////
+
+#include "mail_include"
+
+void main()
+{
+    object oPC = GetPCSpeaker();
+    object oMailman = GetNearestObjectByTag("Mailman", oPC);
+
+    int iMessageID = GetLocalInt(oMailman, "mail_Message");
+
+    int iFrom = GetCampaignInt(DBName, "F" + IntToString(iMessageID));
+    string sSubject = GetCampaignString(DBName, "S" + IntToString(iMessageID));
+
+    if(GetStringLeft(sSubject, 4) != "RE: ") sSubject = "RE: " + sSubject;
+
+    SetLocalInt(oMailman, "mail_ToMB", iFrom);
+    SetLocalString(oMailman, "mail_Subject", sSubject);
+}