From: ueno <ueno>
Date: Tue, 3 Jun 2003 01:50:05 +0000 (+0000)
Subject: * riece-rdcc.el (riece-command-dcc-send): Generate new buffer for
X-Git-Tag: strict-naming-branchpoint~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bdbad5c6b282b8c7dc748acc7564a85e31e805ab;p=elisp%2Friece.git

* riece-rdcc.el (riece-command-dcc-send): Generate new buffer for
DCC process.
(riece-command-dcc-receive): Likewise.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0cff0eb..035ef5a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,8 @@
 2003-06-03  Daiki Ueno  <ueno@unixuser.org>
 
-	* riece-rdcc.el (riece-command-dcc-receive): Don't set
-	buffer-file-name.
+	* riece-rdcc.el (riece-command-dcc-send): Generate new buffer for
+	DCC process.
+	(riece-command-dcc-receive): Likewise; don't set buffer-file-name.
 
 	* riece-server.el (riece-server-keyword-map): `:coding-system' ->
 	`:coding'.
diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index 711977a..ae16c9d 100644
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -125,7 +125,8 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
 	    (mapcar #'list (riece-get-users-on-server)))
 	   (expand-file-name (read-file-name "File: ")))))
   (let ((process
-	 (start-process "DCC send" " *DCC send*" "ruby" "-rsocket")))
+	 (start-process "DCC" (generate-new-buffer " *DCC*")
+			"ruby" "-rsocket")))
     (process-send-string process
 			 (apply #'concat
 				(riece-rdcc-substitute-variables
@@ -237,7 +238,7 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
 	 (coding-system-for-read 'binary)
 	 (coding-system-for-write 'binary)
 	 (process (open-network-stream
-		   "DCC receive" " *DCC receive*"
+		   "DCC" (generate-new-buffer " *DCC*")
 		   (riece-rdcc-decode-address (nth 2 request))
 		   (nth 3 request))))
     (setq riece-rdcc-requests (delq request riece-rdcc-requests))