projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix nnimap-stream docstring
[gnus]
/
lisp
/
mm-url.el
diff --git
a/lisp/mm-url.el
b/lisp/mm-url.el
index
0e7a258
..
0da136e
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
@@
-501,5
+501,4
@@
spaces. Die Die Die."
(provide 'mm-url)
(provide 'mm-url)
-;; arch-tag: 0594f9b3-417c-48b0-adc2-5082e1e7917f
;;; mm-url.el ends here
;;; mm-url.el ends here