+ rf = xzalloc (sizeof *rf);
+ rf->file_name = Tfile_name;
+ rf->file_name_verbatim = file_name;
+
+ for (;;)
+ {
+ /* Generate unique temporary file name. */
+ free (rf->tmp_name_verbatim);
+ rf->tmp_name_verbatim = xasprintf ("%stmpXXXXXX", file_name);
+ if (gen_tempname (rf->tmp_name_verbatim, 0, 0600, GT_NOCREATE) < 0)
+ {
+ saved_errno = errno;
+ msg (ME, _("Creating temporary file to replace %s: %s."),
+ file_name, strerror (saved_errno));
+ goto error;
+ }
+
+ rf->tmp_name = convert_to_filename_encoding (rf->tmp_name_verbatim, strlen (rf->tmp_name_verbatim), fh_get_file_name_encoding (fh));
+
+ /* Create file by that name. */
+ fd = Topen (rf->tmp_name, O_WRONLY | O_CREAT | O_EXCL | O_BINARY, permissions);
+ if (fd >= 0)
+ break;
+ if (errno != EEXIST)
+ {
+ saved_errno = errno;
+ msg (ME, _("Creating temporary file %s: %s."),
+ rf->tmp_name_verbatim, strerror (saved_errno));
+ goto error;
+ }
+ }
+
+
+ /* Open file as stream. */
+ *fp = fdopen (fd, mode);
+ if (*fp == NULL)
+ {
+ saved_errno = errno;
+ msg (ME, _("Opening stream for temporary file %s: %s."),
+ rf->tmp_name_verbatim, strerror (saved_errno));
+ close (fd);
+ Tunlink (rf->tmp_name);
+ goto error;
+ }
+
+ /* Register file for deletion. */
+ ll_push_head (&all_files, &rf->ll);
+ unblock_fatal_signals ();
+
+ return rf;
+
+ error:
+ unblock_fatal_signals ();
+ free_replace_file (rf);
+ *fp = NULL;
+ errno = saved_errno;
+ return NULL;