/[emacs]/emacs/lisp/gnus/mm-url.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-url.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by lektu, Wed Aug 31 13:07:15 2005 UTC revision 1.10 by miles, Sun Sep 25 21:26:32 2005 UTC
# Line 365  If FOLLOW-REFRESH is non-nil, redirect r Line 365  If FOLLOW-REFRESH is non-nil, redirect r
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

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26