       (let ((entry (elfeed-search-selected :ignore-region)))
         (when entry
           (elfeed-kill-line)
-          (elfeed-search-print entry))))))
+          (funcall elfeed-search-print-entry-function entry))))))
 
 (defun elfeed-search-update-entry (entry)
   "Redraw a specific entry."

            (erase-buffer)
            (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)))))))


(defvar elfeed-search-header-function #'elfeed-search--header
  "Function that returns the string to be used for the Elfeed search header.")

(defvar elfeed-search-print-entry-function #'elfeed-search-print-entry--default
  "Function to print entries into the *elfeed-search* buffer.")

(defalias 'elfeed-search-tag-all-unread
  (elfeed-expose #'elfeed-search-tag-all 'unread)
