       (define-key map "q" 'quit-window)
       (define-key map "g" (elfeed-expose #'elfeed-search-update :force))
       (define-key map "G" 'elfeed-update)
+      (define-key map "s" 'elfeed-search-filter-read)
       (define-key map "b" 'elfeed-search-browse-url)
       (define-key map "y" 'elfeed-search-yank)
       (define-key map "u" (elfeed-expose #'elfeed-search-tag-all 'unread))
-      (define-key map "r" (elfeed-expose #'elfeed-search-untag-all 'unread))))
+      (define-key map "r" (elfeed-expose #'elfeed-search-untag-all 'unread))
+      (define-key map "t" 'elfeed-search-tag-all)))
   "Keymap for elfeed-search-mode.")
 
 (defun elfeed-search-mode ()

            (standard-output (current-buffer))
            (line (line-number-at-pos)))
        (erase-buffer)
        (loop for entry in (setf elfeed-search-entries (elfeed-db-entries))
              do (elfeed-search-print entry)
              do (insert "\n"))
        (insert "End of entries.\n")

        buffer-read-only t)
  (hl-line-mode)
  (make-local-variable 'elfeed-search-entries)
  (make-local-variable 'elfeed-search-filter)
  (when (null elfeed-search-refresh-timer)
    (setf elfeed-search-refresh-timer
          (run-at-time elfeed-search-refresh-rate elfeed-search-refresh-rate
