diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 9 | ||||
| -rw-r--r-- | 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 <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. 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)) |