             (standard-output (current-buffer))
             (line (line-number-at-pos)))
         (erase-buffer)
+        (elfeed-search-insert-header)
         (setf elfeed-search-entries (elfeed-search-filter (elfeed-db-entries)))
         (loop for entry in elfeed-search-entries
               do (elfeed-search-print entry)

    (let ((start (if use-region (region-beginning) (point)))
          (end   (if use-region (region-end)       (point))))
      (loop for line from (line-number-at-pos start) to (line-number-at-pos end)
            when (nth (- line elfeed-search--offset) elfeed-search-entries)
            collect it into selected
            finally (return (if ignore-region (car selected) selected))))))


(defcustom elfeed-search-refresh-rate 5
  "How often the buffer should update against the datebase in seconds.")

(defvar elfeed-search--offset 2
  "Offset between line numbers and entry list position.")

(defvar elfeed-search-mode-map
