Browse Source

Merge branch 'maint'

Nicolas Goaziou 1 month ago
parent
commit
494414028a
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-feed.el

+ 1 - 1
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)