changeset 11120:150ac5a4a1fa

(mail): Use pop-to-buffer. (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.

--- a/lisp/mail/sendmail.el	Sat Mar 25 18:07:05 1995 +0000
+++ b/lisp/mail/sendmail.el	Sat Mar 25 20:49:23 1995 +0000
@@ -964,7 +964,7 @@
 ;;;		   (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 @@
 (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 @@
 (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 @@
 ;;;###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)