Mercurial > emacs
changeset 93617:af178a811324
(gnus-configure-frame, gnus-all-windows-visible-p):
Fix last change in case the element is not even a symbol.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Apr 2008 21:30:51 +0000 |
| parents | 71f10341b865 |
| children | 9ec44dd2700c |
| files | lisp/gnus/ChangeLog lisp/gnus/gnus-win.el |
| diffstat | 2 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Thu Apr 03 21:18:49 2008 +0000 +++ b/lisp/gnus/ChangeLog Thu Apr 03 21:30:51 2008 +0000 @@ -1,3 +1,8 @@ +2008-04-03 Stefan Monnier <monnier@iro.umontreal.ca> + + * 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 <rgm@gnu.org> * message.el (mml2015-use): Declare for compiler. @@ -81,8 +86,8 @@ 2008-03-19 Reiner Steib <Reiner.Steib@gmx.de> - * 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.
--- a/lisp/gnus/gnus-win.el Thu Apr 03 21:18:49 2008 +0000 +++ b/lisp/gnus/gnus-win.el Thu Apr 03 21:30:51 2008 +0000 @@ -317,7 +317,7 @@ ;; 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 @@ (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 @@ ;; 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))