Added to riece-modules.

diff --git a/lisp/COMPILE b/lisp/COMPILE
index 153f1fa..4cf3e31 100644 (file)
--- 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 (file)
--- 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