365 |
(defun mm-url-decode-entities () |
(defun mm-url-decode-entities () |
366 |
"Decode all HTML entities." |
"Decode all HTML entities." |
367 |
(goto-char (point-min)) |
(goto-char (point-min)) |
368 |
(while (re-search-forward "&\\(#[0-9]+\\|[a-z]+\\);" nil t) |
(while (re-search-forward "&\\(#[0-9]+\\|[a-z]+[0-9]*\\);" nil t) |
369 |
(let ((elem (if (eq (aref (match-string 1) 0) ?\#) |
(let ((elem (if (eq (aref (match-string 1) 0) ?\#) |
370 |
(let ((c |
(let ((c |
371 |
(string-to-number (substring |
(string-to-number (substring |