   (with-current-buffer snails-content-buffer
     (erase-buffer)
 
+    (setq snails-select-line-number 0)
+    (setq snails-select-line-overlay (make-overlay (point) (point)))
+    (overlay-put snails-select-line-overlay 'face `(:background "#333" :foreground "#C6433B"))
+
     (let ((candiate-index 0)
           (backend-names (snails-get-backend-names))
           header-line-start

          (insert "\n"))
        (setq candiate-index (+ candiate-index 1)))

      (goto-char (point-min)))))

(defun snails-update-list-by-index (list n val)
  (nconc (subseq list 0 n)
         (cons val (nthcdr (1+ n) list))))

(provide 'snails)

;;; snails.el ends here

          (setq header-line-end (point))
          (let ((header-line-overlay (make-overlay header-line-start header-line-end)))
            (overlay-put header-line-overlay
                         'face
                         'snails-header-line-face
                         ))
          (forward-char)

          (dolist (candiate candiate-list)
