diff options
| author | Pav Lucistnik <pav@FreeBSD.org> | 2004-11-06 13:17:05 +0000 |
|---|---|---|
| committer | Pav Lucistnik <pav@FreeBSD.org> | 2004-11-06 13:17:05 +0000 |
| commit | 3374cb40bbd634ecc54e17be8b7acfe7feb1daec (patch) | |
| tree | 1da0c73ff82c82996c9f67c07a0ed32c9a34ff2c /irc/riece | |
| parent | 269588d932ede2b91b08be9b063d8e814f69b837 (diff) | |
| download | ports-3374cb40bbd634ecc54e17be8b7acfe7feb1daec.tar.gz ports-3374cb40bbd634ecc54e17be8b7acfe7feb1daec.zip | |
Notes
Diffstat (limited to 'irc/riece')
| -rw-r--r-- | irc/riece/Makefile | 1 | ||||
| -rw-r--r-- | irc/riece/files/patch-lisp::riece-rdcc.el | 43 |
2 files changed, 44 insertions, 0 deletions
diff --git a/irc/riece/Makefile b/irc/riece/Makefile index 267d092c3959..606c9c0c8923 100644 --- a/irc/riece/Makefile +++ b/irc/riece/Makefile @@ -6,6 +6,7 @@ PORTNAME= riece PORTVERSION= 1.0.4 +PORTREVISION= 1 PORTEPOCH= 1 CATEGORIES= irc elisp MASTER_SITES= http://wiliki.designflaw.org/riece/ diff --git a/irc/riece/files/patch-lisp::riece-rdcc.el b/irc/riece/files/patch-lisp::riece-rdcc.el new file mode 100644 index 000000000000..6ef32bae8b06 --- /dev/null +++ b/irc/riece/files/patch-lisp::riece-rdcc.el @@ -0,0 +1,43 @@ +Index: lisp/riece-rdcc.el +=================================================================== +RCS file: /cvs/root/riece/lisp/riece-rdcc.el,v +retrieving revision 1.26 +diff -u -F^( -r1.26 riece-rdcc.el +--- lisp/riece-rdcc.el 6 Jun 2004 06:11:59 -0000 1.26 ++++ lisp/riece-rdcc.el 4 Nov 2004 07:12:26 -0000 +@@ -64,6 +64,9 @@ (defcustom riece-rdcc-send-program + total += bytes.length + puts(\"#{total}\") + session.write(bytes) ++ begin ++ buf = session.read(4) ++ end until buf.unpack('N')[0] == total + end + } + session.close +@@ -198,13 +201,21 @@ (defun riece-rdcc-filter (process input) + (let ((coding-system-for-write 'binary) + jka-compr-compression-info-list jam-zcat-filename-list) + (write-region (point-min) (point-max) riece-rdcc-temp-file t 0)) ++ (setq riece-rdcc-received-size (+ (buffer-size) riece-rdcc-received-size)) ++ (process-send-string ++ process ++ (format "%c%c%c%c" ++ (logand (lsh riece-rdcc-received-size -24) 255) ++ (logand (lsh riece-rdcc-received-size -16) 255) ++ (logand (lsh riece-rdcc-received-size -8) 255) ++ (logand riece-rdcc-received-size 255))) + (message "Receiving %s from %s...(%s/%s)" + (file-name-nondirectory riece-rdcc-request-file) + riece-rdcc-request-user +- (riece-rdcc-format-size +- (setq riece-rdcc-received-size (+ (buffer-size) +- riece-rdcc-received-size))) +- (riece-rdcc-format-size riece-rdcc-request-size)))) ++ (riece-rdcc-format-size riece-rdcc-received-size) ++ (riece-rdcc-format-size riece-rdcc-request-size)) ++ (if (= riece-rdcc-received-size riece-rdcc-request-size) ++ (set-process-filter process nil)))) + + (defun riece-rdcc-sentinel (process status) + (save-excursion |