Revision: miles@gnu.org--gnu-2005/gnus--devo--0--patch-211

Merge from gnus--rel--5.10

Patches applied:

 * gnus--rel--5.10  (patch 122-123)

   - Update from CVS: lisp/mm-url.el (mm-url-decode-entities): Fix regexp.
   - Update from CVS

2005-09-19  Reiner Steib  <Reiner.Steib@gmx.de>

   * lisp/mm-url.el (mm-url-decode-entities): Fix regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3629996..12aba52 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -32,6 +32,10 @@
        (spam-report-gmane): changed to take a single article and do
        unspam registration
 
+2005-09-19  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * mm-url.el (mm-url-decode-entities): Fix regexp.
+
 2005-09-20  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-agent.el (gnus-agent-synchronize-flags): Switch the

diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index fbea1f1..94d7086 100644 (file)
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -362,7 +362,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))
-  (while (re-search-forward "&\\(#[0-9]+\\|[a-z]+\\);" nil t)
+  (while (re-search-forward "&\\(#[0-9]+\\|[a-z]+[0-9]*\\);" nil t)
     (let ((elem (if (eq (aref (match-string 1) 0) ?\#)
                        (let ((c
                               (string-to-number (substring