"Write the AREAS file."
(interactive)
(when gnus-soup-areas
- (with-temp-file (concat gnus-soup-directory "AREAS")
+ (nnheader-temp-write (concat gnus-soup-directory "AREAS")
(let ((areas gnus-soup-areas)
area)
(while (setq area (pop areas))
(defun gnus-soup-write-replies (dir areas)
"Write a REPLIES file in DIR containing AREAS."
- (with-temp-file (concat dir "REPLIES")
+ (nnheader-temp-write (concat dir "REPLIES")
(let (area)
(while (setq area (pop areas))
(insert (format "%s\t%s\t%s\n"