[Emacs-diffs] Changes to emacs/lisp/gnus/message.el

[Miles Bader]

Index: emacs/lisp/gnus/message.el
diff -c emacs/lisp/gnus/message.el:1.83 emacs/lisp/gnus/message.el:1.84
*** emacs/lisp/gnus/message.el:1.83     Tue Aug  2 07:21:08 2005
--- emacs/lisp/gnus/message.el  Fri Aug  5 08:37:43 2005
***************
*** 3418,3425 ****
                          (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" ""))))
        (ignore-errors
          (delete-file auto-save-file-name))
        (let ((message-draft-article draft-article))
--- 3418,3432 ----
                          (file-exists-p auto-save-file-name))
                     (and file-name
                          (file-exists-p file-name)))
!                (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))
***************
*** 3430,3437 ****
    "Bury this mail BUFFER."
    (let ((newbuf (other-buffer buffer)))
      (bury-buffer buffer)
!     (if (and (fboundp 'frame-parameters)
!            (cdr (assq 'dedicated (frame-parameters)))
             (not (null (delq (selected-frame) (visible-frame-list)))))
        (delete-frame (selected-frame))
        (switch-to-buffer newbuf))))
--- 3437,3443 ----
    "Bury this mail BUFFER."
    (let ((newbuf (other-buffer buffer)))
      (bury-buffer buffer)
!     (if (and (window-dedicated-p (selected-window))
             (not (null (delq (selected-frame) (visible-frame-list)))))
        (delete-frame (selected-frame))
        (switch-to-buffer newbuf))))