X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-rdcc.el;h=188fb76f6a505211aa183172f98e1f58e8888a14;hp=55eccc52451904b123139dadd5592db58763513e;hb=d9bbc0fb8ab1f315ac333ca0fabcb302a2e66149;hpb=896cca0b683a45bb4226e707c2957cc1846965a0

diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el
index 55eccc5..188fb76 100644
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -189,7 +189,7 @@ puts(\"#{" address " >> 24 & 0xFF}.#{" address " >> 16 & 0xFF}.#{"
     (insert input)
     (let ((coding-system-for-write 'binary)
 	  jka-compr-compression-info-list jam-zcat-filename-list)
-      (append-to-file (point-min) (point-max) riece-rdcc-temp-file))
+      (write-region (point-min) (point-max) riece-rdcc-temp-file t 0))
     (message "Receiving %s from %s...(%s/%s)"
 	     (file-name-nondirectory riece-rdcc-request-file)
 	     riece-rdcc-request-user