         mode-name "elfeed-search"
         truncate-lines t
         buffer-read-only t
-        bookmark-make-record-function #'elfeed-search-bookmark-make-record)
+        bookmark-make-record-function #'elfeed-search-bookmark-make-record
+        header-line-format '(:eval (elfeed-search--header)))
   (buffer-disable-undo)
   (hl-line-mode)
   (make-local-variable 'elfeed-search-entries)

          (let ((inhibit-read-only t)
                (standard-output (current-buffer)))
            (erase-buffer)
            (elfeed-search-insert-header)
            (insert "\n")
            (elfeed-search--update-list)
            (dolist (entry elfeed-search-entries)
              (elfeed-search-print entry)
              (insert "\n"))
            (insert "End of entries.\n")
            (setf elfeed-search-last-update (float-time))))
      (let ((inhibit-read-only t))
        (elfeed-save-excursion
          (goto-char (point-min))
          (elfeed-kill-line)
          (elfeed-search-insert-header))))))

(defun elfeed-search-fetch (prefix)
  "Update all feeds via `elfeed-update', or only visible feeds with PREFIX.

  '((((class color) (background light)) (:foreground "#070"))
    (((class color) (background dark))  (:foreground "#0f0")))
  "Face used in search mode for tags."
  :group 'elfeed)

(defface elfeed-search-last-update-face
  '((t))
  "Face for showing the date and time the database was last updated."
  :group 'elfeed)

(defface elfeed-search-unread-count-face
  '((((class color) (background light)) (:foreground "#000"))
    (((class color) (background dark))  (:foreground "#fff")))
  "Face used in search mode for unread entry titles."
  :group 'elfeed)

(defface elfeed-search-filter-face
  '((t :inherit mode-line-buffer-id))
  "Face for showing the current Elfeed search filter."
  :group 'elfeed)

(defcustom elfeed-search-title-max-width 70
