From 27a44cd109860c1d038f1d0e427e4e4e98e31527 Mon Sep 17 00:00:00 2001
From: naru <bottle@mikage.to>
Date: Sat, 12 Jul 2003 07:01:51 +0000
Subject: [PATCH] Strip CRLFs before clipping log

---
 bottleclient/MainForm.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 96ea97d..99d9b14 100755
--- 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('ƒNƒŠƒbƒv', GetScriptText, ClipChannel, '', Ghost);
+  frmLog.AddCurrentScriptLog('ƒNƒŠƒbƒv', Script, ClipChannel, '', Ghost);
   ClearEditor;
 end;
 
-- 
2.11.0