projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6b707a4
)
Fix the last checkin -- separate the hex and decimal cases so that hex
author
Lars Magne Ingebrigtsen
<larsi@quimbies.gnus.org>
Sun, 29 Aug 2010 20:18:07 +0000
(22:18 +0200)
committer
Lars Magne Ingebrigtsen
<larsi@quimbies.gnus.org>
Sun, 29 Aug 2010 20:18:07 +0000
(22:18 +0200)
values work.
lisp/mm-url.el
patch
|
blob
|
history
diff --git
a/lisp/mm-url.el
b/lisp/mm-url.el
index
0e7a258
..
3e80f6a
100644
(file)
--- a/
lisp/mm-url.el
+++ b/
lisp/mm-url.el
@@
-365,7
+365,7
@@
If FOLLOW-REFRESH is non-nil, redirect refresh url in META."
(defun mm-url-decode-entities ()
"Decode all HTML entities."
(goto-char (point-min))
(defun mm-url-decode-entities ()
"Decode all HTML entities."
(goto-char (point-min))
- (while (re-search-forward "&\\(#
x?[0-9
]+\\|[a-z]+[0-9]*\\);" nil t)
+ (while (re-search-forward "&\\(#
[0-9]+\\|#x[0-9a-f
]+\\|[a-z]+[0-9]*\\);" nil t)
(let* ((entity (match-string 1))
(elem (if (eq (aref entity 0) ?\#)
(let ((c (mm-ucs-to-char
(let* ((entity (match-string 1))
(elem (if (eq (aref entity 0) ?\#)
(let ((c (mm-ucs-to-char