decode-entities function does not treat ` ' about elfeed-goodies HOT 1 CLOSED

(defun decode-entities (html)
  (let ((html-non-breaking-space " ")
        (xml-non-breaking-space " "))
    (with-temp-buffer
      (save-excursion
        (insert html))
      (save-excursion
        (while (re-search-forward html-non-breaking-space nil t)
          (replace-match xml-non-breaking-space nil nil)))
             (xml-parse-string))))

(defun decode-entities (html)
  (let ((crap "\\(\\ \\|\\ \\| \\)"))
    (with-temp-buffer
      (save-excursion
        (insert html))
      (save-excursion
        (while (re-search-forward crap nil t)
          (replace-match " " nil nil)))
             (xml-parse-string))))