X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-async.el;h=c39ccbe7ea8d2ba3dd2aeaacc671792cd747a092;hp=0a1b371618b0a569b46920724e3cdfd4d21b6946;hb=b15f103e353f243f165a94604862e3e0dbcc1bc5;hpb=07b5d6254cd1cd9e870640a5f9cfbf5964cc07b2

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