                          ("Travel" . "@6-months-ago +unread +travel")))))
       (if (> (length categories) 0)
           (progn
-           (ar/elfeed-view-filtered (cdr (assoc (completing-read "Categories: " categories)
-                                                categories)))
-           (goto-char (window-start)))
+            (ar/elfeed-view-filtered (cdr (assoc (completing-read "Categories: " categories)
+                                                 categories)))
+            (goto-char (window-start)))
         (message "All caught up \\o/"))))
 
   :config
   (defun ar/elfeed-mark-visible-as-read ()
     (interactive)
-    (set-mark (window-start))
-    (goto-char (window-end-visible))
-    (activate-mark)
-    (elfeed-search-untag-all-unread)
-    (elfeed-search-update--force)
-    (deactivate-mark)
-    (goto-char (window-start)))
+    (when (yes-or-no-p "Mark page as read?")
+      (set-mark (window-start))
+      (goto-char (window-end-visible))
+      (activate-mark)
+      (elfeed-search-untag-all-unread)
+      (elfeed-search-update--force)
+      (deactivate-mark)
+      (goto-char (window-start))))
 
   ;; Going back to defaults for a little while.
   ;; (use-package elfeed-goodies :ensure t

              ("https://www.reddit.com/r/UKPersonalFinance/.rss" social reddit money UKPersonalFinance)
              ("https://www.romanzolotarev.com/rss.xml" blog bsd dev RomanZolotarev)
              ("https://www.steventammen.com/index.xml" blog emacs StevenTammen)
              ("https://www.with-emacs.com/rss.xml" blog emacs WithEmacs)
              ("https://youngfiguy.com/feed" blog money YoungFIGuy)
              ))

              ("https://matt.hackinghistory.ca/feed/" blog emacs MattPrice)
              ("https://medium.com/feed/@tasshin" blog emacs meditation MichaelFogleman)
              ("https://news.ycombinator.com/rss" hackernews tech)
              ("https://notanumber.io/feed.xml" blog emacs NotANumber)
              ("https://ogbe.net/blog.xml" blog emacs dev DennisOgbe)
              ("https://palikar.github.io/index.xml" blog emacs StanislavArnaudov)
              ("https://piware.de/post/index.xml" blog dev MartinPitt)
