From: Gerd Flaig <gefla@truhe.meka2009.de>
Date: Sat, 17 Jan 2009 18:27:52 +0000 (+0100)
Subject: Also send a line from the queue on c_flush
X-Git-Url: http://git.pond.sub.org/?p=eow;a=commitdiff_plain;h=3f96b4cec88b526930a32b151dd27827ef1baab4

Also send a line from the queue on c_flush
---

diff --git a/empire.lisp b/empire.lisp
index eb75bfc..7f6eb31 100644
--- a/empire.lisp
+++ b/empire.lisp
@@ -176,7 +176,8 @@
 
 (defmethod handle-flush ((m play-mode) message)
   (let* ((c (connection m)))
-    (empire-web:prompt (session c) message)))
+    (empire-web:prompt (session c) message)
+    (send-next-line c)))
 
 (defmethod send-next-line ((c connection))
   (send-message-one c (locked-queue:dequeue (send-queue c))))