diff options
| author | Miles Bader <miles@gnu.org> | 2009-01-09 03:01:50 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2009-01-09 03:01:50 +0000 |
| commit | e3e955fed38da9263f3904f15233ccfd0dbbbe43 (patch) | |
| tree | 6a34615ae6e5699c8b7dfba64dfae3486ded203f /lisp/gnus/mm-url.el | |
| parent | 2188975fbff1202d011db2f82d728fc5fb5f9346 (diff) | |
| download | emacs-e3e955fed38da9263f3904f15233ccfd0dbbbe43.tar.gz | |
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1513
Diffstat (limited to 'lisp/gnus/mm-url.el')
| -rw-r--r-- | lisp/gnus/mm-url.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el index b41c40f8f50..46ca1741fb7 100644 --- a/lisp/gnus/mm-url.el +++ b/lisp/gnus/mm-url.el @@ -1,6 +1,7 @@ ;;; mm-url.el --- a wrapper of url functions/commands for Gnus -;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009 +;; Free Software Foundation, Inc. ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu> @@ -366,10 +367,10 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META." (goto-char (point-min)) (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 - (match-string 1) 1)))) - (if (mm-char-or-char-int-p c) c 32)) + (let ((c (mm-ucs-to-char + (string-to-number + (substring (match-string 1) 1))))) + (if (mm-char-or-char-int-p c) c ?#)) (or (cdr (assq (intern (match-string 1)) mm-url-html-entities)) ?#)))) |