Mercurial > emacs
comparison lisp/mail/sendmail.el @ 7858:41f30d92485e
(mail): If homedir is nonexistent, don't use as default.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 12 Jun 1994 12:57:42 +0000 |
| parents | 6cc0db90bcc3 |
| children | 7967c371644f |
comparison
equal
deleted
inserted
replaced
| 7857:e735b56f7423 | 7858:41f30d92485e |
|---|---|
| 823 ;;; (if (and buffer-auto-save-file-name | 823 ;;; (if (and buffer-auto-save-file-name |
| 824 ;;; (file-exists-p buffer-auto-save-file-name)) | 824 ;;; (file-exists-p buffer-auto-save-file-name)) |
| 825 ;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) | 825 ;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) |
| 826 ;;; t)) | 826 ;;; t)) |
| 827 (switch-to-buffer "*mail*") | 827 (switch-to-buffer "*mail*") |
| 828 (setq default-directory (expand-file-name "~/")) | 828 (if (file-exists-p (expand-file-name "~/")) |
| 829 (setq default-directory (expand-file-name "~/"))) | |
| 829 (auto-save-mode auto-save-default) | 830 (auto-save-mode auto-save-default) |
| 830 (mail-mode) | 831 (mail-mode) |
| 831 (let (initialized) | 832 (let (initialized) |
| 832 (and (not noerase) | 833 (and (not noerase) |
| 833 (or (not (buffer-modified-p)) | 834 (or (not (buffer-modified-p)) |