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

(mail): Use pop-to-buffer.

Browse Source 
(same-window-buffer-names): Add *mail*.
(mail-other-window, mail-other-frame): Bind to nil
same-window-buffer-names, special-display-buffer-names, and ...regexps.
This commit is contained in:
Richard M. Stallman 1995-03-25 20:49:23 +00:00
parent 35b12ec0fb
commit 67a6988bf8
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/mail/sendmail.el
View File

@ -964,7 +964,7 @@ 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))
(switch-to-buffer "*mail*")
(pop-to-buffer "*mail*")
(if (file-exists-p (expand-file-name "~/"))
(setq default-directory (expand-file-name "~/")))
(auto-save-mode auto-save-default)
@ -1003,7 +1003,11 @@ The seventh argument ACTIONS is a list of actions to take
(defun mail-other-window (&optional noerase to subject in-reply-to cc replybuffer sendactions)
"Like `mail' command, but display mail buffer in another window."
(interactive "P")
(let ((pop-up-windows t))
(let ((pop-up-windows t)
(special-display-buffer-names nil)
(special-display-regexps nil)
(same-window-buffer-names nil)
(same-window-regexps nil))
(pop-to-buffer "*mail*"))
(mail noerase to subject in-reply-to cc replybuffer sendactions))
@ -1011,7 +1015,11 @@ The seventh argument ACTIONS is a list of actions to take
(defun mail-other-frame (&optional noerase to subject in-reply-to cc replybuffer sendactions)
"Like `mail' command, but display mail buffer in another frame."
(interactive "P")
(let ((pop-up-frames t))
(let ((pop-up-frames t)
(special-display-buffer-names nil)
(special-display-regexps nil)
(same-window-buffer-names nil)
(same-window-regexps nil))
(pop-to-buffer "*mail*"))
(mail noerase to subject in-reply-to cc replybuffer sendactions))
@ -1021,6 +1029,8 @@ The seventh argument ACTIONS is a list of actions to take
;;;###autoload (define-key ctl-x-4-map "m" 'mail-other-window)
;;;###autoload (define-key ctl-x-5-map "m" 'mail-other-frame)
;;;###autoload (add-hook 'same-window-buffer-names "*mail*")
;;; Do not add anything but external entries on this page.
(provide 'sendmail)