(message-bury): Use `window-dedicated-p'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2be620c..fccb371 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-15  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-bury): Use `window-dedicated-p'.
+
 2004-10-15  Simon Josefsson  <jas@extundo.com>
 
        * pop3.el (top-level): Don't require nnheader.

diff --git a/lisp/message.el b/lisp/message.el
index 7f3dbfd..aea8223 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3436,8 +3436,7 @@ Instead, just auto-save the buffer and then bury it."
   "Bury this mail BUFFER."
   (let ((newbuf (other-buffer buffer)))
     (bury-buffer buffer)
-    (if (and (fboundp 'frame-parameters)
-            (cdr (assq 'dedicated (frame-parameters)))
+    (if (and (window-dedicated-p (selected-window))
             (not (null (delq (selected-frame) (visible-frame-list)))))
        (delete-frame (selected-frame))
       (switch-to-buffer newbuf))))