diff options
| -rw-r--r-- | lisp/mail/sendmail.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 64ed126a955..6b7ab2b1f1f 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -532,7 +532,7 @@ Prefix arg means don't delete this window." (let ((newbuf (other-buffer (current-buffer)))) (bury-buffer (current-buffer)) (if (and (or (window-dedicated-p (frame-selected-window)) - (assq 'mail-dedicated-frame (frame-parameters))) + (cdr (assq 'mail-dedicated-frame (frame-parameters)))) (not (null (delq (selected-frame) (visible-frame-list))))) (delete-frame (selected-frame)) (let (rmail-flag summary-buffer) |