From: ueno <ueno>
Date: Sat, 9 Aug 2003 04:56:52 +0000 (+0000)
Subject: (riece-command-dcc-send): Accept output only from
X-Git-Tag: riece-0_1_0~16
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=81a26c07d46e798fac4349ae33bc7faaaf54900b;p=elisp%2Friece.git

(riece-command-dcc-send): Accept output only from
the ruby process.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5740a04..72baf78 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-08-09  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-rdcc.el (riece-command-dcc-send): Accept output only from
+	the ruby process.
+
 	* riece-xemacs.el: Don't require 'riece-compat.
 
 2003-08-06  Daiki Ueno  <ueno@unixuser.org>
diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index f984d23..c165480 100644
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -146,7 +146,7 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
 		  (progn
 		    (goto-char (point-min))
 		    (not (looking-at "\\([0-9]+\\) \\([0-9]+\\)"))))
-	(accept-process-output))
+	(accept-process-output process))
       (if (eq (process-status process) 'run)
 	  (let ((address (match-string 1))
 		(port (match-string 2)))