From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Mar 1995 20:49:23 +0000 (+0000)
Subject: (mail): Use pop-to-buffer.
X-Git-Tag: emacs-19.34~4738
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=67a6988bf8c6af8778f062e640efe71f57a866ca;p=emacs.git

(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.
---

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 633b7f4d3e2..8e2a7bc5bb8 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -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)