 
 (defun anything-find-files-or-dired-p ()
   "Test if current source is a dired or find-files source."
-  (let ((doc        " (`C-z':expand directory, `C-.':Go to precedent level)")
-        (ff-sources '("Find Files" "Copy Files"
+  (let ((ff-sources '("Find Files" "Copy Files"
                       "Rename Files" "Symlink Files"
                       "Hardlink Files" "Write File" "Insert File"))
         (cur-source (cdr (assoc 'name (anything-get-current-source)))))
     (catch 'break
       (dolist (i ff-sources)
-        (when (equal cur-source (concat i doc))
+        (when (equal cur-source (concat i anything-c-find-files-doc-header))
           (throw 'break t))))))
 
 (defun anything-find-files-down-one-level (arg)

(defvar anything-c-source-bbdb
  '((name . "BBDB")
    (candidates . anything-c-bbdb-candidates)
    (action ("Send a mail" . (lambda (candidate)
                               (bbdb-send-mail (anything-c-bbdb-get-record candidate))))
            ("View person's data" . anything-c-bbdb-view-person-action))
    (filtered-candidate-transformer . (lambda (candidates source)
                                        (setq anything-c-bbdb-name anything-pattern)


(defun anything-c-bbdb-view-person-action (candidate)
  "View BBDB data of single CANDIDATE or marked candidates."
  (anything-aif (anything-marked-candidates)
      (let ((bbdb-append-records (length it)))
        (dolist (i it)
          (bbdb-redisplay-one-record (anything-c-bbdb-get-record i))))
    (bbdb-redisplay-one-record (anything-c-bbdb-get-record candidate))))

(defun anything-c-bbdb-collect-mail-addresses ()
  "Return a list of all mail addresses of records in bbdb buffer."
  (with-current-buffer bbdb-buffer-name
    (loop for i in bbdb-records
       if (bbdb-record-net (car i))
       collect (bbdb-dwim-net-address (car i)))))

(defun anything-c-bbdb-compose-mail (candidate)
  "Compose a mail with all records of bbdb buffer."
  (anything-c-bbdb-view-person-action candidate)
  (let* ((address-list (anything-c-bbdb-collect-mail-addresses))
         (address-str  (mapconcat 'identity address-list ",\n    ")))
    (compose-mail address-str)))

;;; Evaluation Result
(defvar anything-c-source-evaluation-result
  '((name . "Evaluation Result")
