From: ueno <ueno>
Date: Sun, 24 Aug 2003 03:00:38 +0000 (+0000)
Subject: * riece-rdcc.el (riece-command-dcc-send): Bind
X-Git-Tag: riece-0_1_0~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cb157ccba298fd35be7a4947a41e5b85f9ea6501;p=elisp%2Friece.git

* riece-rdcc.el (riece-command-dcc-send): Bind
process-connection-type to nil.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 595e47a..1773b36 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2003-08-24  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-rdcc.el (riece-command-dcc-send): Bind
+	process-connection-type to nil.
+
 	* riece-300.el (riece-handle-319-message): New handler.
 
 	* riece.el (riece-buffer-mode-alist): Add riece-command-buffer.
diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index c165480..43852ff 100644
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -124,9 +124,9 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
 	    "User: "
 	    (mapcar #'list (riece-get-users-on-server)))
 	   (expand-file-name (read-file-name "File: ")))))
-  (let ((process
-	 (start-process "DCC" (generate-new-buffer " *DCC*")
-			"ruby" "-rsocket")))
+  (let* ((process-connection-type nil)
+	 (process (start-process "DCC" (generate-new-buffer " *DCC*")
+				 "ruby" "-rsocket")))
     (process-send-string process
 			 (apply #'concat
 				(riece-rdcc-substitute-variables