Changes committed gnus/lisp (ChangeLog gnus-win.el mail-source.el)

Modified: ChangeLog gnus-win.el mail-source.el

2008-04-10  Stefan Monnier  <[email protected]>

	    * mail-source.el (mail-source-value):
	    Prefer fboundp to functionp so it works with macros as well.

2008-04-10  Stefan Monnier  <[email protected]>

	    * gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p):
	    Fix last change in case the element is not even a symbol.

2008-04-10  Stefan Monnier  <[email protected]>

	    * gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p):
	    Prefer fboundp to functionp so it works with macros as well.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1825 gnus/lisp/ChangeLog:7.1826
--- ChangeLog:7.1825	Wed Apr  9 22:16:17 2008
+++ ChangeLog	Thu Apr 10 13:56:15 2008
@@ -1,3 +1,18 @@
+2008-04-10  Stefan Monnier  <[email protected]>
+
+	* mail-source.el (mail-source-value):
+	Prefer fboundp to functionp so it works with macros as well.
+
+2008-04-10  Stefan Monnier  <[email protected]>
+
+	* gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p):
+	Fix last change in case the element is not even a symbol.
+
+2008-04-10  Stefan Monnier  <[email protected]>
+
+	* gnus-win.el (gnus-configure-frame, gnus-all-windows-visible-p):
+	Prefer fboundp to functionp so it works with macros as well.
+
 2008-04-09  Teodor Zlatanov  <[email protected]>
 
 	* auth-source.el: Added docs.
Index: gnus-win.el
diff -u gnus/lisp/gnus-win.el:7.13 gnus/lisp/gnus-win.el:7.14
--- gnus-win.el:7.13	Sun Jan 20 06:23:57 2008
+++ gnus-win.el	Thu Apr 10 13:56:15 2008
@@ -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))
-		(functionp (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))
-			(functionp (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))
-		  (functionp (car split)))
+		  (symbolp (car split)) (fboundp (car split)))
 	(setq split (eval split)))
 
       (setq type (elt split 0))
Index: mail-source.el
diff -u gnus/lisp/mail-source.el:7.30 gnus/lisp/mail-source.el:7.31
--- mail-source.el:7.30	Fri Mar 14 14:43:32 2008
+++ mail-source.el	Thu Apr 10 13:56:15 2008
@@ -500,8 +500,7 @@
    ((stringp value)
     value)
    ;; Function
-   ((and (listp value)
-	 (functionp (car value)))
+   ((and (listp value) (symbolp (car value)) (fboundp (car value)))
     (eval value))
    ;; Just return the value.
    (t