* 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 (file)
--- 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 (file)
--- 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))