Mercurial > emacs
comparison lisp/mail/sendmail.el @ 14925:a19affa9f653
(mail): Put the auto-save file in the home dir.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 03 Apr 1996 04:42:55 +0000 |
| parents | 20f4c4a078b2 |
| children | 963288ebadeb |
comparison
equal
deleted
inserted
replaced
| 14924:67ec801831b8 | 14925:a19affa9f653 |
|---|---|
| 1018 ;;; (if (and buffer-auto-save-file-name | 1018 ;;; (if (and buffer-auto-save-file-name |
| 1019 ;;; (file-exists-p buffer-auto-save-file-name)) | 1019 ;;; (file-exists-p buffer-auto-save-file-name)) |
| 1020 ;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) | 1020 ;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) |
| 1021 ;;; t)) | 1021 ;;; t)) |
| 1022 (pop-to-buffer "*mail*") | 1022 (pop-to-buffer "*mail*") |
| 1023 (auto-save-mode auto-save-default) | 1023 ;; Put the auto-save file in the home dir |
| 1024 ;; to avoid any danger that it can't be written. | |
| 1025 (let ((default-directory "~/")) | |
| 1026 (auto-save-mode auto-save-default)) | |
| 1024 (mail-mode) | 1027 (mail-mode) |
| 1025 ;; Disconnect the buffer from its visited file | 1028 ;; Disconnect the buffer from its visited file |
| 1026 ;; (in case the user has actually visited a file *mail*). | 1029 ;; (in case the user has actually visited a file *mail*). |
| 1027 ; (set-visited-file-name nil) | 1030 ; (set-visited-file-name nil) |
| 1028 (let (initialized) | 1031 (let (initialized) |