Mercurial > emacs
comparison lisp/gnus/gnus-start.el @ 44075:7782e54757bb
* mail-source.el (make-source-make-complex-temp-name): Use
make-temp-file.
* mm-util.el (mm-make-temp-file): New function.
* nneething.el (nneething-file-name): Use it.
* mm-decode.el (mm-display-external, mm-create-image-xemacs): Ditto.
* gnus-uu.el (gnus-uu-decode-binhex, gnus-uu-decode-binhex-view)
(gnus-uu-digest-mail-forward, gnus-uu-initialize): Ditto.
* gnus-start.el (gnus-slave-save-newsrc): Ditto.
* message.el (message-mode): If buffer-file-name, don't set auto
save file name.
Trivial change from Geoff Greene <ggreene@wpi.edu>
author | ShengHuo ZHU <zsh@cs.rochester.edu> |
---|---|
date | Thu, 21 Mar 2002 19:11:23 +0000 |
parents | 55e0120deff6 |
children | bd315b9fa3f0 |
comparison
equal
deleted
inserted
replaced
44074:e1637a1c9023 | 44075:7782e54757bb |
---|---|
2498 | 2498 |
2499 (defun gnus-slave-save-newsrc () | 2499 (defun gnus-slave-save-newsrc () |
2500 (save-excursion | 2500 (save-excursion |
2501 (set-buffer gnus-dribble-buffer) | 2501 (set-buffer gnus-dribble-buffer) |
2502 (let ((slave-name | 2502 (let ((slave-name |
2503 (make-temp-name (concat gnus-current-startup-file "-slave-"))) | 2503 (mm-make-temp-file (concat gnus-current-startup-file "-slave-"))) |
2504 (modes (ignore-errors | 2504 (modes (ignore-errors |
2505 (file-modes (concat gnus-current-startup-file ".eld"))))) | 2505 (file-modes (concat gnus-current-startup-file ".eld"))))) |
2506 (let ((coding-system-for-write gnus-ding-file-coding-system)) | 2506 (let ((coding-system-for-write gnus-ding-file-coding-system)) |
2507 (gnus-write-buffer slave-name)) | 2507 (gnus-write-buffer slave-name)) |
2508 (when modes | 2508 (when modes |