   (let* ((entry (elfeed-search-selected :ignore-region))
          (link (and entry (elfeed-entry-link entry))))
     (when entry
+      (elfeed-untag entry 'unread)
+      (x-set-selection 'PRIMARY link)
       (message "Copied: %s" link)
-      (x-set-selection 'PRIMARY link))))
+      (elfeed-search-update-line)
+      (forward-line))))
 
 (provide 'elfeed)
 

  "Face used in search mode for feed titles."
  :group 'elfeed)

(defun elfeed-search-update ()
  "Update the display to match the database."
  (interactive)

  "Visit the current entry in your browser using `browse-url'."
  (interactive)
  (loop for entry in (elfeed-search-selected)
        do (elfeed-untag entry 'unread)
        when (elfeed-entry-link entry)
        do (browse-url it)))

