       (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 "t" 'elfeed-search-tag-all)))
+      (define-key map "t" 'elfeed-search-tag-all)
+      (define-key map "v" 'elfeed-search-untag-all)))
   "Keymap for elfeed-search-mode.")
 
 (defun elfeed-search-mode ()

          for old = (gethash id table)
          when old  ; merge old tags back in
          do (setf (elfeed-entry-tags entry) (elfeed-entry-tags old))
          do (setf (gethash id table) entry))
    (setf (gethash :last-update elfeed-db) (float-time))))


    (mapc #'elfeed-search-update-entry entries)
    (unless (use-region-p) (forward-line))))

;; Helper functions

(defun elfeed-regexp-tagger (regexp tag)
  "Return a function suitable for `elfeed-new-entry-hook' that
tags entries with title or link matching regexp."
  (lambda (entry)
    (when (or (string-match-p regexp (elfeed-entry-link entry))
              (string-match-p regexp (elfeed-entry-title entry)))
      (elfeed-tag entry tag))))

(provide 'elfeed)

;;; elfeed.el ends here
