Mercurial > emacs
diff lisp/gnus/gnus-start.el @ 26039:fb6b9c37cdc4
Use make-temp-file.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Fri, 15 Oct 1999 16:03:59 +0000 |
parents | 15fc6acbae7a |
children | 9968f55ad26e |
line wrap: on
line diff
--- a/lisp/gnus/gnus-start.el Fri Oct 15 15:48:53 1999 +0000 +++ b/lisp/gnus/gnus-start.el Fri Oct 15 16:03:59 1999 +0000 @@ -2404,12 +2404,12 @@ (save-excursion (set-buffer gnus-dribble-buffer) (let ((slave-name - (make-temp-name (concat gnus-current-startup-file "-slave-"))) + (make-temp-file (concat gnus-current-startup-file "-slave-"))) (modes (ignore-errors (file-modes (concat gnus-current-startup-file ".eld"))))) - (gnus-write-buffer slave-name) (when modes - (set-file-modes slave-name modes))))) + (set-file-modes slave-name modes)) + (gnus-write-buffer slave-name)))) (defun gnus-master-read-slave-newsrc () (let ((slave-files