Mercurial > emacs

changeset 20049:69e6aa6e413e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mail-bury): Check for value, not just existence, of alist element.
author Karl Heuer <kwzh@gnu.org>
date Wed, 15 Oct 1997 22:50:09 +0000
parents 5324d8b2322b
children 8762dec6d161
files lisp/mail/sendmail.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/sendmail.el	Wed Oct 15 22:45:35 1997 +0000
+++ b/lisp/mail/sendmail.el	Wed Oct 15 22:50:09 1997 +0000
@@ -532,7 +532,7 @@
   (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)