diff options
| author | Lars Ingebrigtsen | 2016-02-12 16:33:36 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-12 16:33:36 +1100 |
| commit | 7c162e73d471242c5cb649db3e50d1a5787127ab (patch) | |
| tree | 510b60cec835338732a3c3c195cba32b5807a8b8 | |
| parent | eefef287b35b5f5277de5246cb5806648be293b7 (diff) | |
| download | emacs-7c162e73d471242c5cb649db3e50d1a5787127ab.tar.gz emacs-7c162e73d471242c5cb649db3e50d1a5787127ab.zip | |
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.
| -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." | |||
| 364 | (string-to-number (substring entity 1))))) | 364 | (string-to-number (substring entity 1))))) |
| 365 | (setq c (or (cdr (assq c mm-extra-numeric-entities)) | 365 | (setq c (or (cdr (assq c mm-extra-numeric-entities)) |
| 366 | (mm-ucs-to-char c))) | 366 | (mm-ucs-to-char c))) |
| 367 | (if (char-valid-p c) c ?#)) | 367 | (if (characterp c) c ?#)) |
| 368 | (or (cdr (assq (intern entity) | 368 | (or (cdr (assq (intern entity) |
| 369 | mm-url-html-entities)) | 369 | mm-url-html-entities)) |
| 370 | ?#)))) | 370 | ?#)))) |