From 7c498afaf94f76147013120d86d6cd5166fe4ba3 Mon Sep 17 00:00:00 2001
From: mysticbbs <mysticbbs@gmail.com>
Date: Sun, 18 Nov 2012 03:47:50 -0500
Subject: [PATCH] Paste no longer allows Email base to not be the first base

---
 mystic/bbs_cfg_msgbase.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mystic/bbs_cfg_msgbase.pas b/mystic/bbs_cfg_msgbase.pas
index 4ca2b36..726f0f0 100644
--- a/mystic/bbs_cfg_msgbase.pas
+++ b/mystic/bbs_cfg_msgbase.pas
@@ -232,7 +232,7 @@ Begin
 
                       HasCopy := True;
                     End;
-              'P' : If HasCopy Then Begin
+              'P' : If HasCopy And (List.Picked > 1) Then Begin
                       MBaseFile.RecordInsert (List.Picked);
                       MBaseFile.Write        (Copied);