summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2017-12-04 22:20:25 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2017-12-04 22:20:25 +0100
commit66754e9042fcc1c6b7ec4cceb52bafc7a982b23e (patch)
tree4e34de5b3524c5ea2c2a1f19c65b982b092565a2
parentd3f7309cbdd0b27e0b496fb82464b5ec67651c7f (diff)
downloadorg-mode-66754e9042fcc1c6b7ec4cceb52bafc7a982b23e.tar.gz
org-feed: Fix parsing <guid>
* lisp/org-feed.el (org-feed-parse-rss-feed): Fix regexp for <guid>. Fixes: 27711
-rw-r--r--lisp/org-feed.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-feed.el b/lisp/org-feed.el
index 0119864..cd2e95f 100644
--- a/lisp/org-feed.el
+++ b/lisp/org-feed.el
@@ -624,7 +624,7 @@ containing the properties `:guid' and `:item-full-text'."
end (and (re-search-forward "</item>" nil t)
(match-beginning 0)))
(setq item (buffer-substring beg end)
- guid (if (string-match "<guid\\>.*?>\\(.*?\\)</guid>" item)
+ guid (if (string-match "<guid\\>.*?>\\([^\000]*?\\)</guid>" item)
(xml-substitute-special (match-string-no-properties 1 item))))
(setq entry (list :guid guid :item-full-text item))
(push entry entries)