diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 16:33:36 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-12 16:33:36 +1100 |
| commit | 7c162e73d471242c5cb649db3e50d1a5787127ab (patch) | |
| tree | 510b60cec835338732a3c3c195cba32b5807a8b8 /lisp/gnus/mm-url.el | |
| parent | eefef287b35b5f5277de5246cb5806648be293b7 (diff) | |
| download | emacs-7c162e73d471242c5cb649db3e50d1a5787127ab.tar.gz | |
Don't use the obsolete char-valid-p function
* lisp/gnus/mm-url.el (mm-url-decode-entities): Don't use the
obsolete char-valid-p function.
Diffstat (limited to 'lisp/gnus/mm-url.el')
| -rw-r--r-- | lisp/gnus/mm-url.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/gnus/mm-url.el b/lisp/gnus/mm-url.el index 25954b937ee..fb11d7a07f5 100644 --- a/lisp/gnus/mm-url.el +++ b/lisp/gnus/mm-url.el @@ -364,7 +364,7 @@ If FOLLOW-REFRESH is non-nil, redirect refresh url in META." (string-to-number (substring entity 1))))) (setq c (or (cdr (assq c mm-extra-numeric-entities)) (mm-ucs-to-char c))) - (if (char-valid-p c) c ?#)) + (if (characterp c) c ?#)) (or (cdr (assq (intern entity) mm-url-html-entities)) ?#)))) |