 RedOnWhite ==> Directory."
   (loop for i in files
      for pred = (bookmark-get-filename i)
-     for bufp = (and (fboundp 'bookmark-get-buffername)
-                     (bookmark-get-buffername i))
-     for regp = (and (fboundp 'bookmark-get-endposition)
-                     (bookmark-get-endposition i)
+     for bufp = (and (fboundp 'bookmark-get-buffer-name)
+                     (bookmark-get-buffer-name i))
+     for regp = (and (fboundp 'bookmark-get-end-position)
+                     (bookmark-get-end-position i)
                      (/= (bookmark-get-position i)
-                         (bookmark-get-endposition i)))
+                         (bookmark-get-end-position i)))
      for handlerp = (and (fboundp 'bookmark-get-handler)
                          (bookmark-get-handler i))
-     if (and pred ;; directories
+     ;; directories
+     if (and pred 
              (file-directory-p pred))
-     collect (propertize i 'face anything-c-bookmarks-face1)
-     if (and pred ;; regular files
+     collect (propertize i 'face anything-c-bookmarks-face1 'help-echo pred)
+     ;; regular files
+     if (and pred 
              (not (file-directory-p pred))
              (file-exists-p pred)
              (not regp))
-     collect (propertize i 'face anything-c-bookmarks-face2)
-     if (and pred ;; regular files with regions saved
+     collect (propertize i 'face anything-c-bookmarks-face2 'help-echo pred)
+     ;; regular files with regions saved
+     if (and pred 
              (not (file-directory-p pred))
              (file-exists-p pred)
              regp)
-     collect (propertize i 'face '((:foreground "Indianred2")))
-     if (and (fboundp 'bookmark-get-buffername) ;; buffer non--filename
+     collect (propertize i 'face '((:foreground "Indianred2")) 'help-echo pred)
+     ;; gnus
+     if (eq handlerp 'bookmark-jump-gnus)
+     collect (propertize i 'face '((:foreground "magenta")) 'help-echo pred)
+     ;; buffer non--filename
+     if (and (fboundp 'bookmark-get-buffer-name)
              bufp
+             (not (eq handlerp 'bookmark-jump-gnus))
              (not pred))
      collect (propertize i 'face '((:foreground "grey")))
-     if (and (fboundp 'bookmark-get-buffername) ;; w3m buffers
+     ;; w3m buffers
+     if (and (fboundp 'bookmark-get-buffer-name)
              (string= bufp "*w3m*")
              (when pred
                (not (file-exists-p pred))))
-     collect (propertize i 'face '((:foreground "yellow")))
-     if (and (fboundp 'bookmark-get-buffername) ;; info buffers
+     collect (propertize i 'face '((:foreground "yellow")) 'help-echo pred)
+     ;; info buffers
+     if (and (fboundp 'bookmark-get-buffer-name)
              (eq handlerp 'Info-bookmark-jump)
              (string= bufp "*info*"))
-     collect (propertize i 'face '((:foreground "green")))))
+     collect (propertize i 'face '((:foreground "green")) 'help-echo pred)))
        
 
 (defvar anything-c-source-bookmarks-local

        (ediff-buffers buf1 buf2))))

(defun anything-delete-marked-bookmarks (elm)
  (anything-aif anything-c-marked-candidate-list
      (progn
        (dolist (i it)
          (bookmark-delete i 'batch))
        (bookmark-save))
    (bookmark-delete elm)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Setup ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


  (let ((default-font elm))
    (set-default-font default-font)))

(defvar anything-c-xfonts-cache nil)
(defvar anything-c-source-xfonts
  '((name . "X Fonts")
    (init . (lambda ()
              (unless anything-c-xfonts-cache
                (setq anything-c-xfonts-cache
                      (x-list-fonts "*")))))  
    (candidates . anything-c-xfonts-cache)
    (multiline)
    (action . (("Copy to kill ring" . (lambda (elm)
                                        (kill-new elm)))
