1591 |
The normal hook `mail-setup-hook' is run after the message is |
The normal hook `mail-setup-hook' is run after the message is |
1592 |
initialized. It can add more default fields to the message. |
initialized. It can add more default fields to the message. |
1593 |
|
|
1594 |
When calling from a program, the first argument if non-nil says |
The first argument, NOERASE, determines what to do when there is |
1595 |
not to erase the existing contents of the `*mail*' buffer. |
an existing modified `*mail*' buffer. If NOERASE is nil, the |
1596 |
|
existing mail buffer is used, and the user is prompted whether to |
1597 |
|
keep the old contents or to erase them. If NOERASE has the value |
1598 |
|
`new', a new mail buffer will be created instead of using the old |
1599 |
|
one. Any other non-nil value means to always select the old |
1600 |
|
buffer without erasing the contents. |
1601 |
|
|
1602 |
The second through fifth arguments, |
The second through fifth arguments, |
1603 |
TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil |
TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil |
1654 |
;;; (file-exists-p buffer-auto-save-file-name)) |
;;; (file-exists-p buffer-auto-save-file-name)) |
1655 |
;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) |
;;; (message "Auto save file for draft message exists; consider M-x mail-recover")) |
1656 |
;;; t)) |
;;; t)) |
1657 |
(pop-to-buffer "*mail*") |
|
1658 |
|
(if (eq noerase 'new) |
1659 |
|
(pop-to-buffer (generate-new-buffer "*mail*")) |
1660 |
|
(pop-to-buffer "*mail*")) |
1661 |
|
|
1662 |
;; Avoid danger that the auto-save file can't be written. |
;; Avoid danger that the auto-save file can't be written. |
1663 |
(let ((dir (expand-file-name |
(let ((dir (expand-file-name |
1664 |
(file-name-as-directory mail-default-directory)))) |
(file-name-as-directory mail-default-directory)))) |
1673 |
;; (in case the user has actually visited a file *mail*). |
;; (in case the user has actually visited a file *mail*). |
1674 |
; (set-visited-file-name nil) |
; (set-visited-file-name nil) |
1675 |
(let (initialized) |
(let (initialized) |
1676 |
(and (not noerase) |
(and (or (not noerase) |
1677 |
|
(eq noerase 'new)) |
1678 |
(if buffer-file-name |
(if buffer-file-name |
1679 |
(if (buffer-modified-p) |
(if (buffer-modified-p) |
1680 |
(when (y-or-n-p "Buffer has unsaved changes; reinitialize it and discard them? ") |
(when (y-or-n-p "Buffer has unsaved changes; reinitialize it and discard them? ") |