From c59afcd6780f7c0efa81ab0c47493dd70aa14d3f Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 1 Jun 2003 07:42:49 +0000
Subject: [PATCH] Added to riece-modules.

---
 lisp/COMPILE       |    1 +
 lisp/riece-rdcc.el |   11 +++++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 153f1fa..4cf3e31 100644
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -42,6 +42,7 @@
 		;; add-ons
 		riece-ctcp
 		riece-highlight
+		riece-rdcc
 		riece-url
 		riece-unread))))
 
diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index e1ed72c..d5217f0 100644
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -56,6 +56,8 @@ Only used for sending files."
       (delete-region (point-min) (point)))))
 
 (defun riece-rdcc-server-sentinel (process status)
+  (with-current-buffer (process-buffer process)
+    (message "Sending %s...done" riece-rdcc-request-file))
   (kill-buffer (process-buffer process))
   (delete-process process))
 
@@ -77,10 +79,11 @@ session = server.accept
 if session
   total = 0
   File.open('" file "') {|file|
-    bytes = file.read(1024)
-    total += bytes.length
-    puts(\"#{total}\")
-    session.write(bytes)
+    while (bytes = file.read(1024))
+      total += bytes.length
+      puts(\"#{total}\")
+      session.write(bytes)
+    end
   }
   session.close
 end
-- 
1.7.10.4