/[emacs]/emacs/lisp/gnus/message.el
ViewVC logotype

Diff of /emacs/lisp/gnus/message.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.83 by miles, Tue Aug 2 07:21:08 2005 UTC revision 1.84 by miles, Fri Aug 5 08:37:43 2005 UTC
# Line 3418  Instead, just auto-save the buffer and t Line 3418  Instead, just auto-save the buffer and t
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))
# Line 3430  Instead, just auto-save the buffer and t Line 3437  Instead, just auto-save the buffer and t
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))))

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26