diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-15 22:50:09 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-15 22:50:09 +0000 |
| commit | b03a16216977cc33114a5e4c69881225680edefc (patch) | |
| tree | 3290dcb4c2296d2bb9df9e83cf53a110a919e809 /lisp | |
| parent | d49f0c1af8e16701b95f75733a9865951e7b3f5b (diff) | |
| download | emacs-b03a16216977cc33114a5e4c69881225680edefc.tar.gz | |
(mail-bury): Check for value, not just
existence, of alist element.
Diffstat (limited to 'lisp')
| -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) |