mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

2005-09-13 Chong Yidong <cyd@stupidchicken.com>

Browse Source 
* mail/sendmail.el (mail): Use new buffer if `noerase' argument is
	`new'.
This commit is contained in:
Chong Yidong 2005-09-12 21:58:21 +00:00
parent 34cb01154a
commit 1db2d450cb
2 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2005-09-13 Chong Yidong <cyd@stupidchicken.com>
* mail/sendmail.el (mail): Use new buffer if `noerase' argument is
`new'.
2005-09-12 Richard M. Stallman <rms@gnu.org>
* font-lock.el (font-lock-keywords): Add autoload.

18
lisp/mail/sendmail.el
View File

@ -1591,8 +1591,13 @@ is inserted.
The normal hook `mail-setup-hook' is run after the message is
initialized. It can add more default fields to the message.
When calling from a program, the first argument if non-nil says
not to erase the existing contents of the `*mail*' buffer.
The first argument, NOERASE, determines what to do when there is
an existing modified `*mail*' buffer. If NOERASE is nil, the
existing mail buffer is used, and the user is prompted whether to
keep the old contents or to erase them. If NOERASE has the value
`new', a new mail buffer will be created instead of using the old
one. Any other non-nil value means to always select the old
buffer without erasing the contents.
The second through fifth arguments,
TO, SUBJECT, IN-REPLY-TO and CC, specify if non-nil
@ -1649,7 +1654,11 @@ The seventh argument ACTIONS is a list of actions to take
;;; (file-exists-p buffer-auto-save-file-name))
;;; (message "Auto save file for draft message exists; consider M-x mail-recover"))
;;; t))
(pop-to-buffer "*mail*")
(if (eq noerase 'new)
(pop-to-buffer (generate-new-buffer "*mail*"))
(pop-to-buffer "*mail*"))
;; Avoid danger that the auto-save file can't be written.
(let ((dir (expand-file-name
(file-name-as-directory mail-default-directory))))
@ -1664,7 +1673,8 @@ The seventh argument ACTIONS is a list of actions to take
;; (in case the user has actually visited a file *mail*).
; (set-visited-file-name nil)
(let (initialized)
(and (not noerase)
(and (or (not noerase)
(eq noerase 'new))
(if buffer-file-name
(if (buffer-modified-p)
(when (y-or-n-p "Buffer has unsaved changes; reinitialize it and discard them? ")