diff options
| author | Hiroshi Saito <saidie@saidie.info> | 2015-09-28 03:04:10 +0900 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-09-30 13:55:23 +0200 |
| commit | 115c4bd5a7d3c87184e147fe309e77589c004ddf (patch) | |
| tree | 782ca2495893ee18ec87dd32e7858da07fcfb8b4 | |
| parent | fd8a18151a7a64ded36c169f03c76bf96733bfd9 (diff) | |
| download | org-mode-115c4bd5a7d3c87184e147fe309e77589c004ddf.tar.gz | |
org-feed.el: Substitute a guid XML element
* lisp/org-feed.el (org-feed-parse-rss-feed): Substitute a guid XML
element with `xml-substitute-special'.
TINYCHANGE
| -rw-r--r-- | lisp/org-feed.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-feed.el b/lisp/org-feed.el index 6990e75..707db41 100644 --- a/lisp/org-feed.el +++ b/lisp/org-feed.el @@ -615,7 +615,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) |