Function: gnus-cloud-replace-file

gnus-cloud-replace-file is a byte-compiled function defined in gnus-cloud.el.gz.

Signature

(gnus-cloud-replace-file FILE-NAME DATE NEW-CONTENTS)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cloud.el.gz
(defun gnus-cloud-replace-file (file-name date new-contents)
  (mm-with-unibyte-buffer
    (insert new-contents)
    (when (file-exists-p file-name)
      (rename-file file-name (car (find-backup-file-name file-name))))
    (write-region (point-min) (point-max) file-name nil nil nil 'excl)
    (set-file-times file-name (parse-iso8601-time-string date) 'nofollow)))