Add elfeed-catchup command

2 files changed, 8 insertions, 0 deletions

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