             (erase-buffer)
             (elfeed-search--update-list)
             (dolist (entry elfeed-search-entries)
-              (elfeed-search-print entry)
+              (funcall elfeed-search-print-entry-function entry)
               (insert "\n"))
             (insert "End of entries.\n")
             (setf elfeed-search-last-update (float-time)))))))

      (let ((entry (elfeed-search-selected :ignore-region)))
        (when entry
          (elfeed-kill-line)
          (elfeed-search-print entry))))))

(defun elfeed-search-update-entry (entry)
  "Redraw a specific entry."

                  append (cdr (assoc tag elfeed-search-face-alist)))
         (list 'elfeed-search-title-face)))

(defun elfeed-search-print-entry--default (entry)
  "Print ENTRY to the buffer."
  (let* ((date (elfeed-search-format-date (elfeed-entry-date entry)))
         (title (or (elfeed-meta entry :title) (elfeed-entry-title entry) ""))
