diff options
author | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
---|---|---|
committer | Sébastien Delafond <sdelafond@gmail.com> | 2016-02-10 18:54:48 +0100 |
commit | 8d8ea67656b95d8528b6cd9b43b2d53b847412b0 (patch) | |
tree | d5aa3d72b5904dc9bace013bbb7cd530191fe219 /lisp/org-feed.el | |
parent | f7ab8b6645e5b81dd3b1df053a3bf41b279696f4 (diff) |
Imported Upstream version 8.3.3
Diffstat (limited to 'lisp/org-feed.el')
-rw-r--r-- | lisp/org-feed.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-feed.el b/lisp/org-feed.el index 6990e75..f637bfd 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -406,8 +406,8 @@ it can be a list structured like an entry in `org-feed-alist'." ;; Normalize the visibility of the inbox tree (goto-char inbox-pos) - (hide-subtree) - (show-children) + (outline-hide-subtree) + (outline-show-children) (org-cycle-hide-drawers 'children) ;; Hooks and messages @@ -604,6 +604,7 @@ Assumes headers are indeed present!" "Parse BUFFER for RSS feed entries. Returns a list of entries, with each entry a property list, containing the properties `:guid' and `:item-full-text'." + (require 'xml) (let ((case-fold-search t) entries beg end item guid entry) (with-current-buffer buffer @@ -615,7 +616,7 @@ containing the properties `:guid' and `:item-full-text'." (match-beginning 0))) (setq item (buffer-substring beg end) guid (if (string-match "<guid\\>.*?>\\(.*?\\)</guid>" item) - (org-match-string-no-properties 1 item))) + (xml-substitute-special (org-match-string-no-properties 1 item)))) (setq entry (list :guid guid :item-full-text item)) (push entry entries) (widen) |