From e476a09b79f061436cd0a6d2c219f75c7b1500d6 Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 14 Dec 2003 03:55:45 +0000
Subject: [PATCH] Fixed.

---
 lisp/riece-async.el |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/riece-async.el b/lisp/riece-async.el
index 0a1b371..c39ccbe 100644
--- a/lisp/riece-async.el
+++ b/lisp/riece-async.el
@@ -61,14 +61,14 @@ trap('TSTP', 'IGNORE')
 wfds_in = []
 buf = ''
 loop do
-  rfds, wfds = select([socket, $stdin], wfds_in)
-  if wfds.delete($stdout)
+  rfds, wfds, = select([socket, $stdin], wfds_in)
+  unless wfds.empty?
     begin
       until buf.empty?
         len = $stdout.syswrite(buf)
         buf.slice!(0 .. len)
       end
-      wfds_in.delete($stdout)
+      wfds_in = []
     rescue Errno::EAGAIN
     end
   end
-- 
1.7.10.4