(message-kill-buffer): Raise the current frame.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7516ddd..74f2b4c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-12  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * message.el (message-kill-buffer): Raise the current frame.
+
 2004-10-10  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-sum.el: Mention that multibyte characters don't work as marks.

diff --git a/lisp/message.el b/lisp/message.el
index cdf21bb..72a6f4a 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3417,8 +3417,15 @@ Instead, just auto-save the buffer and then bury it."
                          (file-exists-p auto-save-file-name))
                     (and file-name
                          (file-exists-p file-name)))
-              (yes-or-no-p (format "Remove the backup file%s? "
-                                   (if modified " too" ""))))
+                (progn
+                  ;; If the message buffer has lived in a dedicated window,
+                  ;; `kill-buffer' has killed the frame.  Thus the
+                  ;; `yes-or-no-p' may show up in a lowered frame.  Make sure
+                  ;; that the user can see the question by raising the
+                  ;; current frame:
+                  (raise-frame)
+                  (yes-or-no-p (format "Remove the backup file%s? "
+                                       (if modified " too" "")))))
        (ignore-errors
          (delete-file auto-save-file-name))
        (let ((message-draft-article draft-article))