Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 26038:2f34f175497c | 26039:fb6b9c37cdc4 |
|---|---|
| 2402 | 2402 |
| 2403 (defun gnus-slave-save-newsrc () | 2403 (defun gnus-slave-save-newsrc () |
| 2404 (save-excursion | 2404 (save-excursion |
| 2405 (set-buffer gnus-dribble-buffer) | 2405 (set-buffer gnus-dribble-buffer) |
| 2406 (let ((slave-name | 2406 (let ((slave-name |
| 2407 (make-temp-name (concat gnus-current-startup-file "-slave-"))) | 2407 (make-temp-file (concat gnus-current-startup-file "-slave-"))) |
| 2408 (modes (ignore-errors | 2408 (modes (ignore-errors |
| 2409 (file-modes (concat gnus-current-startup-file ".eld"))))) | 2409 (file-modes (concat gnus-current-startup-file ".eld"))))) |
| 2410 (gnus-write-buffer slave-name) | |
| 2411 (when modes | 2410 (when modes |
| 2412 (set-file-modes slave-name modes))))) | 2411 (set-file-modes slave-name modes)) |
| 2412 (gnus-write-buffer slave-name)))) | |
| 2413 | 2413 |
| 2414 (defun gnus-master-read-slave-newsrc () | 2414 (defun gnus-master-read-slave-newsrc () |
| 2415 (let ((slave-files | 2415 (let ((slave-files |
| 2416 (directory-files | 2416 (directory-files |
| 2417 (file-name-directory gnus-current-startup-file) | 2417 (file-name-directory gnus-current-startup-file) |