diff options
| author | Lars Ingebrigtsen | 2016-02-13 17:04:00 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-13 17:04:00 +1100 |
| commit | 7a42ebd969efd896185b0822e7031268a8f8080d (patch) | |
| tree | 7f8a6c9a4d236d4cfc6b996c5c53b1a1c2dddc17 | |
| parent | 8a1143b7b6ca7270d1848111cc2edf539aced25b (diff) | |
| download | emacs-7a42ebd969efd896185b0822e7031268a8f8080d.tar.gz emacs-7a42ebd969efd896185b0822e7031268a8f8080d.zip | |
Fix compat change in last check-in
* lisp/gnus/gnus-group.el
(gnus-group-name-charset-group-alist): `find-coding-system'
doesn't exist in Emacs.
| -rw-r--r-- | lisp/gnus/gnus-group.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 3b481db9f31..1602c475361 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el | |||
| @@ -421,8 +421,7 @@ For example: | |||
| 421 | :type '(repeat (cons (sexp :tag "Method") (symbol :tag "Charset")))) | 421 | :type '(repeat (cons (sexp :tag "Method") (symbol :tag "Charset")))) |
| 422 | 422 | ||
| 423 | (defcustom gnus-group-name-charset-group-alist | 423 | (defcustom gnus-group-name-charset-group-alist |
| 424 | (if (or (find-coding-system 'utf-8) | 424 | (if (mm-coding-system-p 'utf-8) |
| 425 | (mm-coding-system-p 'utf-8)) | ||
| 426 | '((".*" . utf-8)) | 425 | '((".*" . utf-8)) |
| 427 | nil) | 426 | nil) |
| 428 | "Alist of group regexp and the charset for group names. | 427 | "Alist of group regexp and the charset for group names. |