   (let ((name (assoc-default 'name source)))
     (anything-insert-header name
                             (anything-aif (assoc-default 'header-name source)
-                                (funcall it name)))))
+                                (anything-funcall-with-source source it name)))))
 
 (defun anything-insert-header (name &optional display-string)
   "Insert header of source NAME into the anything buffer."

;; New maintainer.
;;

(defvar anything-version "$Id: anything.el,v 1.181 2009/05/04 19:05:03 rubikitch Exp $")
(require 'cl)

;; (@* "User Configuration")

;;; anything.el --- open anything / QuickSilver-like candidate-selection framework
;; $Id: anything.el,v 1.182 2009/05/08 18:28:18 rubikitch Exp $

;; Copyright (C) 2007        Tamas Patrovics
;;               2008, 2009  rubikitch <rubikitch@ruby-lang.org>
