Function: org-feed-parse-rss-entry

org-feed-parse-rss-entry is a byte-compiled function defined in org-feed.el.gz.

Signature

(org-feed-parse-rss-entry ENTRY)

Documentation

Parse the :item-full-text field for xml tags and create new properties.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-feed.el.gz
(defun org-feed-parse-rss-entry (entry)
  "Parse the `:item-full-text' field for xml tags and create new properties."
  (require 'xml)
  (with-temp-buffer
    (insert (plist-get entry :item-full-text))
    (goto-char (point-min))
    (while (re-search-forward "<\\([a-zA-Z]+\\>\\).*?>\\([^\000]*?\\)</\\1>"
			      nil t)
      (setq entry (plist-put entry
			     (intern (concat ":" (match-string 1)))
			     (xml-substitute-special (match-string 2)))))
    (goto-char (point-min))
    (unless (re-search-forward "isPermaLink[ \t]*=[ \t]*\"false\"" nil t)
      (setq entry (plist-put entry :guid-permalink t))))
  entry)