'file
(concat "'" file "'"))
'block-size
- (number-of-string riece-rdcc-block-size))))
+ (number-to-string riece-rdcc-block-size))))
(process-send-eof process)
(save-excursion
(set-buffer (process-buffer process))
(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