From: keiichi <keiichi>
Date: Fri, 28 Aug 1998 02:06:19 +0000 (+0000)
Subject: Repair `multi frame control'.
X-Git-Tag: gnus-6_8_17~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=74c8e592a6b6f971eaa1c08f11731ef45a72ea41;p=elisp%2Fgnus.git-

Repair `multi frame control'.
---

diff --git a/lisp/message.el b/lisp/message.el
index 5193062..784dcda 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3347,7 +3347,24 @@ Headers already prepared in the buffer are not modified."
 
 (defun message-pop-to-buffer (name)
   "Pop to buffer NAME, and warn if it already exists and is modified."
-  (let ((buffer (get-buffer name)))
+  (let ((pop-up-frames pop-up-frames)
+	(special-display-buffer-names special-display-buffer-names)
+	(special-display-regexps special-display-regexps)
+	(same-window-buffer-names same-window-buffer-names)
+	(same-window-regexps same-window-regexps)
+	(buffer (get-buffer name))
+	(cur (current-buffer)))
+    (if (or (and (featurep 'xemacs)
+		 (not (eq 'tty (device-type))))
+	    window-system
+	    (>= emacs-major-version 20))
+	(when message-use-multi-frames
+	  (setq pop-up-frames t
+		special-display-buffer-names nil
+		special-display-regexps nil
+		same-window-buffer-names nil
+		same-window-regexps nil))
+      (setq pop-up-frames nil))
     (if (and buffer
 	     (buffer-name buffer))
 	(progn