projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
67306de
)
Added to riece-modules.
author
Daiki Ueno
<ueno@unixuser.org>
Sun, 1 Jun 2003 07:42:49 +0000
(07:42 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Sun, 1 Jun 2003 07:42:49 +0000
(07:42 +0000)
lisp/COMPILE
patch
|
blob
|
history
lisp/riece-rdcc.el
patch
|
blob
|
history
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
;; add-ons
riece-ctcp
riece-highlight
+ riece-rdcc
riece-url
riece-unread))))
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)
(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))
(kill-buffer (process-buffer process))
(delete-process process))
@@
-77,10
+79,11
@@
session = server.accept
if session
total = 0
File.open('" file "') {|file|
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
}
session.close
end