From 5faa2ec0c6eb24225134de17f80e3bec0fddf6e7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 Apr 2008 21:30:51 +0000 Subject: [PATCH] (gnus-configure-frame, gnus-all-windows-visible-p): Fix last change in case the element is not even a symbol. --- lisp/gnus/ChangeLog | 9 +++++++-- lisp/gnus/gnus-win.el | 6 +++--- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5ffbcb2d1b7..56562063926 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2008-04-03 Stefan Monnier + + * gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p): + Fix last change in case the element is not even a symbol. + 2008-03-31 Glenn Morris * message.el (mml2015-use): Declare for compiler. @@ -81,8 +86,8 @@ 2008-03-19 Reiner Steib - * message.el (message-alter-recipients-discard-bogus-full-name): New - function. + * message.el (message-alter-recipients-discard-bogus-full-name): + New function. (message-alter-recipients-function): New variable. (message-get-reply-headers): Use it. (message-replace-header): New helper function. diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el index 2dfed1e981f..ba77620fc24 100644 --- a/lisp/gnus/gnus-win.el +++ b/lisp/gnus/gnus-win.el @@ -317,7 +317,7 @@ See the Gnus manual for an explanation of the syntax used.") ;; The SPLIT might be something that is to be evaled to ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) - (fboundp (car split))) + (symbolp (car split)) (fboundp (car split))) (setq split (eval split))) (let* ((type (car split)) (subs (cddr split)) @@ -380,7 +380,7 @@ See the Gnus manual for an explanation of the syntax used.") (while subs (setq sub (append (pop subs) nil)) (while (and (not (assq (car sub) gnus-window-to-buffer)) - (fboundp (car sub))) + (symbolp (car sub)) (fboundp (car sub))) (setq sub (eval sub))) (when sub (push sub comp-subs) @@ -520,7 +520,7 @@ should have point." ;; The SPLIT might be something that is to be evaled to ;; return a new SPLIT. (while (and (not (assq (car split) gnus-window-to-buffer)) - (fboundp (car split))) + (symbolp (car split)) (fboundp (car split))) (setq split (eval split))) (setq type (elt split 0)) -- 2.39.5