From cfb881ffb73770c002d525f893e9abe4fbce89a5 Mon Sep 17 00:00:00 2001 From: David Ellison Date: Sun, 5 Sep 2021 07:55:47 -0700 Subject: [PATCH] dereference entry content when attaching to org link --- elfeed-link.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/elfeed-link.el b/elfeed-link.el index 4050067..6afd814 100644 --- a/elfeed-link.el +++ b/elfeed-link.el @@ -39,13 +39,14 @@ of available props." (car (elfeed-entry-id elfeed-show-entry)) (cdr (elfeed-entry-id elfeed-show-entry))) :description (elfeed-entry-title elfeed-show-entry) - (cl-loop for prop in - (list 'id 'title 'link 'date 'content 'content-type 'enclosures 'tags 'feed-id 'meta) - nconc (list - (intern (concat ":elfeed-entry-" (symbol-name prop))) - (funcall - (intern (concat "elfeed-entry-" (symbol-name prop))) - elfeed-show-entry))))))) + :elfeed-entry-content (elfeed-deref (elfeed-entry-content elfeed-show-entry)) + (cl-loop for prop in + (list 'id 'title 'link 'date 'content-type 'enclosures 'tags 'feed-id 'meta) + nconc (list + (intern (concat ":elfeed-entry-" (symbol-name prop))) + (funcall + (intern (concat "elfeed-entry-" (symbol-name prop))) + elfeed-show-entry))))))) ;;;###autoload (defun elfeed-link-open (filter-or-id)