[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/message.el |
Date: |
Fri, 05 Aug 2005 04:37:47 -0400 |
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))))