Commit 5faa2ec0 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(gnus-configure-frame, gnus-all-windows-visible-p):

Fix last change in case the element is not even a symbol.
parent 1ade5d24
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.
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment