           (or new-filter (default-value 'elfeed-search-filter)))
     (elfeed-search-update :force)))
 
-(defun elfeed-search-insert-header-text (text)
-  "Insert TEXT into buffer using header face."
-  (insert (propertize text 'face '(widget-inactive italic))))
-
-(defun elfeed-search-insert-intro-header ()
-  "Insert the intro header with buttons."
-  (cl-flet ((button (f)
-              (insert-button (symbol-name f)
-                             'follow-link t
-                             'action (lambda (_) (call-interactively f)))))
-    (elfeed-search-insert-header-text "Database empty. Use ")
-    (button 'elfeed-add-feed)
-    (elfeed-search-insert-header-text ", or ")
-    (button 'elfeed-load-opml)
-    (elfeed-search-insert-header-text ", or ")
-    (button 'elfeed-update)
-    (elfeed-search-insert-header-text ".")))
-
-(defun elfeed-search-insert-header ()
-  "Insert a one-line status header."
-  (if url-queue
-      (let ((total (length url-queue))
-            (in-process (cl-count-if #'url-queue-buffer url-queue)))
-        (elfeed-search-insert-header-text
-         (format "%d feeds pending, %d in process ..."
-                 (- total in-process) in-process)))
-    (let ((time (seconds-to-time (elfeed-db-last-update))))
-      (if (zerop (float-time time))
-          (elfeed-search-insert-intro-header)
-        (elfeed-search-insert-header-text
-         (format "Database last updated %s"
-                 (format-time-string "%A, %B %d %Y %H:%M:%S %Z" time)))))))
-
 (defun elfeed-search--update-list ()
   "Update `elfeed-search-filter' list."
   (let* ((filter (elfeed-search-parse-filter elfeed-search-filter))

  "When non-nil, Elfeed is currently reading a filter from the minibuffer.
When live editing the filter, it is bound to :live.")

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

(defalias 'elfeed-search-tag-all-unread

      (when buffer
        (with-current-buffer buffer
          (let* ((window (get-buffer-window (elfeed-search-buffer)))
                 (height (window-total-height window))
                 (limiter (if window
                              (format "#%d " height)
                            "#1 "))
                 (elfeed-search-filter (concat limiter current-filter)))
            (elfeed-search-update :force)
            (setf elfeed-search-filter-overflowing
                  (= (length elfeed-search-entries)
                     height))))))))

(defun elfeed-search-live-filter ()
  "Filter the elfeed-search buffer as the filter is written."
