Mercurial > emacs
diff lisp/gnus/mm-url.el @ 100993:a16e9f7c2536
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1513
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Fri, 09 Jan 2009 03:01:50 +0000 |
| parents | a9dc0e7c3f2b |
| children | 1d1d5d9bd884 |
line wrap: on
line diff
--- a/lisp/gnus/mm-url.el Fri Jan 09 02:59:52 2009 +0000 +++ b/lisp/gnus/mm-url.el Fri Jan 09 03:01:50 2009 +0000 @@ -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 @@ (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)) ?#))))