emacs-elfeed-search-fix-browse-at-remote.patch 1.3 KB

12345678910111213141516171819202122232425262728293031
  1. --- a/elfeed-search.el 1970-01-01 03:00:01.000000000 +0300
  2. +++ b/elfeed-search.el 2020-08-25 22:02:04.114008818 +0300
  3. @@ -233,7 +233,6 @@
  4. (set (make-local-variable 'bookmark-make-record-function)
  5. #'elfeed-search-bookmark-make-record)
  6. (buffer-disable-undo)
  7. - (hl-line-mode)
  8. (make-local-variable 'elfeed-search-entries)
  9. (make-local-variable 'elfeed-search-filter)
  10. (add-hook 'elfeed-update-hooks #'elfeed-search-update)
  11. @@ -766,14 +765,14 @@
  12. (interactive "P")
  13. (let ((entries (elfeed-search-selected)))
  14. (cl-loop for entry in entries
  15. - do (elfeed-untag entry 'unread)
  16. + do (progn (elfeed-untag entry 'unread)
  17. + (mapc #'elfeed-search-update-entry entries)
  18. + (unless (or elfeed-search-remain-on-entry (use-region-p))
  19. + (forward-line)))
  20. when (elfeed-entry-link entry)
  21. do (if use-generic-p
  22. (browse-url-generic it)
  23. - (browse-url it)))
  24. - (mapc #'elfeed-search-update-entry entries)
  25. - (unless (or elfeed-search-remain-on-entry (use-region-p))
  26. - (forward-line))))
  27. + (browse-url it)))))
  28. (defun elfeed-search-yank ()
  29. "Copy the selected feed items to clipboard and kill-ring."