From bdbad5c6b282b8c7dc748acc7564a85e31e805ab Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 3 Jun 2003 01:50:05 +0000 Subject: [PATCH] * riece-rdcc.el (riece-command-dcc-send): Generate new buffer for DCC process. (riece-command-dcc-receive): Likewise. --- lisp/ChangeLog | 5 +++-- lisp/riece-rdcc.el | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) 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 - * 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)) -- 1.7.10.4