Strip CRLFs before clipping log

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 96ea97d..99d9b14 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -2854,13 +2854,15 @@ begin
 end;
 
 procedure TfrmSender.actSendToLogWindowExecute(Sender: TObject);
-var Ghost: String;
+var Ghost, Script: String;
 begin
+  YenETrans;
+  Script := StringReplace(GetScriptText, #13#10, '', [rfReplaceAll]);
   if cbxTargetGhost.ItemIndex > 0 then
     Ghost := cbxTargetGhost.Text
   else
     Ghost := '';
-  frmLog.AddCurrentScriptLog('\83N\83\8a\83b\83v', GetScriptText, ClipChannel, '', Ghost);
+  frmLog.AddCurrentScriptLog('\83N\83\8a\83b\83v', Script, ClipChannel, '', Ghost);
   ClearEditor;
 end;