714 |
(if (and (or (window-dedicated-p (frame-selected-window)) |
(if (and (or (window-dedicated-p (frame-selected-window)) |
715 |
(cdr (assq 'mail-dedicated-frame (frame-parameters)))) |
(cdr (assq 'mail-dedicated-frame (frame-parameters)))) |
716 |
(not (null (delq (selected-frame) (visible-frame-list))))) |
(not (null (delq (selected-frame) (visible-frame-list))))) |
717 |
(delete-frame (selected-frame)) |
(progn |
718 |
|
(if (display-multi-frame-p) |
719 |
|
(delete-frame (selected-frame)) |
720 |
|
;; The previous frame is where normally they have the |
721 |
|
;; RMAIL buffer displayed. |
722 |
|
(other-frame -1))) |
723 |
(let (rmail-flag summary-buffer) |
(let (rmail-flag summary-buffer) |
724 |
(and (not arg) |
(and (not arg) |
725 |
(not (one-window-p)) |
(not (one-window-p)) |