 
 (defun anything-c-transform-file-browse-url (actions candidate)
   "Add an action to browse the file CANDIDATE if it in a html
-file.  Else return ACTIONS unmodified."
-  (if (or (string= (file-name-extension candidate) "htm")
-          (string= (file-name-extension candidate) "html"))
-      (append actions '(("Browse with Browser" . browse-url)))
+file or URL.  Else return ACTIONS unmodified."
+  (if (string-match "^http\\|^ftp\\|html?$" candidate)
+      (cons '("Browse with Browser" . browse-url) actions )
     actions))
 
 ;;;; Function

        collect (propertize i 'face anything-c-bookmarks-face3)))

(defun anything-c-highlight-bookmark (files)
  (loop for i in files
        if (file-directory-p (bookmark-get-filename i))
        collect (propertize i 'face anything-c-bookmarks-face1)
        else
        collect (propertize i 'face anything-c-bookmarks-face2)))

(defvar anything-c-source-bookmarks-local
  '((name . "Bookmarks-Local")

(define-anything-type-attribute 'bookmark
  '((action
     ("Jump to bookmark" . (lambda (candidate)
                             (bookmark-jump candidate)
                             (anything-update)
                             (condition-case nil
                                 (when bookmark-use-region
                                   (let ((bmk-name (or (bookmark-get-buffername candidate)
                                                       (file-name-nondirectory
                                                        (bookmark-get-filename candidate)))))
                                     (when bmk-name
                                       (with-current-buffer bmk-name
                                         (setq deactivate-mark nil)))))
                               (error nil))))
     ("Jump to BM other window" . (lambda (candidate)
                                    (bookmark-jump-other-window candidate)
                                    (anything-update)))
