3418 |
(file-exists-p auto-save-file-name)) |
(file-exists-p auto-save-file-name)) |
3419 |
(and file-name |
(and file-name |
3420 |
(file-exists-p file-name))) |
(file-exists-p file-name))) |
3421 |
(yes-or-no-p (format "Remove the backup file%s? " |
(progn |
3422 |
(if modified " too" "")))) |
;; If the message buffer has lived in a dedicated window, |
3423 |
|
;; `kill-buffer' has killed the frame. Thus the |
3424 |
|
;; `yes-or-no-p' may show up in a lowered frame. Make sure |
3425 |
|
;; that the user can see the question by raising the |
3426 |
|
;; current frame: |
3427 |
|
(raise-frame) |
3428 |
|
(yes-or-no-p (format "Remove the backup file%s? " |
3429 |
|
(if modified " too" ""))))) |
3430 |
(ignore-errors |
(ignore-errors |
3431 |
(delete-file auto-save-file-name)) |
(delete-file auto-save-file-name)) |
3432 |
(let ((message-draft-article draft-article)) |
(let ((message-draft-article draft-article)) |
3437 |
"Bury this mail BUFFER." |
"Bury this mail BUFFER." |
3438 |
(let ((newbuf (other-buffer buffer))) |
(let ((newbuf (other-buffer buffer))) |
3439 |
(bury-buffer buffer) |
(bury-buffer buffer) |
3440 |
(if (and (fboundp 'frame-parameters) |
(if (and (window-dedicated-p (selected-window)) |
|
(cdr (assq 'dedicated (frame-parameters))) |
|
3441 |
(not (null (delq (selected-frame) (visible-frame-list))))) |
(not (null (delq (selected-frame) (visible-frame-list))))) |
3442 |
(delete-frame (selected-frame)) |
(delete-frame (selected-frame)) |
3443 |
(switch-to-buffer newbuf)))) |
(switch-to-buffer newbuf)))) |