From a952fd857b6602d9e6a2a4ecada6922ecfdcb8d4 Mon Sep 17 00:00:00 2001 From: Daiki 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 -- 2.25.1