2500 |
(save-excursion |
(save-excursion |
2501 |
(set-buffer gnus-dribble-buffer) |
(set-buffer gnus-dribble-buffer) |
2502 |
(let ((slave-name |
(let ((slave-name |
2503 |
(make-temp-name (concat gnus-current-startup-file "-slave-"))) |
(mm-make-temp-file (concat gnus-current-startup-file "-slave-"))) |
2504 |
(modes (ignore-errors |
(modes (ignore-errors |
2505 |
(file-modes (concat gnus-current-startup-file ".eld"))))) |
(file-modes (concat gnus-current-startup-file ".eld"))))) |
2506 |
(let ((coding-system-for-write gnus-ding-file-coding-system)) |
(let ((coding-system-for-write gnus-ding-file-coding-system)) |