+2009-02-08 Dave Love <fx@gnu.org>
+
+ * gnus-win.el (gnus-window-to-buffer-helper,
+ gnus-all-windows-visible-p): Function needn't be a symbol.
+
+ * mail-source.el (mail-source-value): Function needn't be a symbol.
+
2010-09-26 Lars Magne Ingebrigtsen <larsi@gnus.org>
* message.el (message-cite-prefix-regexp): Remove } from the cite
(defvar gnus-frame-list nil)
(defun gnus-window-to-buffer-helper (obj)
- (cond ((not (symbolp obj))
+ (cond ((functionp obj)
+ (funcall obj))
+ ((not (symbolp obj))
obj)
((boundp obj)
(symbol-value obj))
- ((fboundp obj)
- (funcall obj))
(t
nil)))
;; 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))
- (symbolp (car split)) (fboundp (car split)))
+ (functionp (car split)))
(setq split (eval split)))
(let* ((type (car split))
(subs (cddr split))
(while subs
(setq sub (append (pop subs) nil))
(while (and (not (assq (car sub) gnus-window-to-buffer))
- (symbolp (car sub)) (fboundp (car sub)))
+ (functionp (car sub)))
(setq sub (eval sub)))
(when sub
(push sub comp-subs)
;; 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))
- (symbolp (car split)) (fboundp (car split)))
+ (functionp (car split)))
(setq split (eval split)))
(setq type (elt split 0))
((stringp value)
value)
;; Function
- ((and (listp value) (symbolp (car value)) (fboundp (car value)))
+ ((and (listp value) (functionp (car value)))
(eval value))
;; Just return the value.
(t