From a3be318dd49b59397eca5de837307bf34169888e Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 13 Nov 2016 01:27:57 -0500
Subject: Add elfeed-catchup command

---
 init.el           | 1 +
 lisp/km-elfeed.el | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/init.el b/init.el
index 4b98762..e7b8dc1 100644
--- a/init.el
+++ b/init.el
@@ -2064,6 +2064,7 @@
   :init
   (after 'elfeed
     (bind-keys :map elfeed-search-mode-map
+               ("c" . km/elfeed-catchup)
                ("d" . km/elfeed-default-filter)
                ("t" . km/elfeed-set-tag))))
 
diff --git a/lisp/km-elfeed.el b/lisp/km-elfeed.el
index bea17c1..b7de3e6 100644
--- a/lisp/km-elfeed.el
+++ b/lisp/km-elfeed.el
@@ -56,5 +56,12 @@ filter to the default, respectively."
   (interactive)
   (elfeed-search-set-filter (default-value 'elfeed-search-filter)))
 
+;;;###autoload
+(defun km/elfeed-catchup ()
+  (interactive)
+  (mark-whole-buffer)
+  (elfeed-search-untag-all-unread)
+  (km/elfeed-default-filter))
+
 (provide 'km-elfeed)
 ;;; km-elfeed.el ends here
-- 
cgit v1.2.3