2001-10-10 Katsumi Yamaoka <yamaoka@jpl.org>

	* gnus-group.el (gnus-group-name-charset-group-alist): Use
	`find-coding-system' for XEmacs to check whether the coding-system
	`utf-8' is available.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 758e59c..bb962e6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-group.el (gnus-group-name-charset-group-alist): Use
+       `find-coding-system' for XEmacs to check whether the coding-system
+       `utf-8' is available.
+
 2001-10-09 13:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
        * dgnushack.el (dgnushack-compile): Detect mh-e and xml.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index 0812cf1..9775c4e 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -410,8 +410,9 @@ For example:
   :group 'gnus-charset
   :type '(repeat (cons (sexp :tag "Method") (symbol :tag "Charset"))))
 
-(defcustom gnus-group-name-charset-group-alist 
-  (if (and (fboundp 'coding-system-p) (coding-system-p 'utf-8))
+(defcustom gnus-group-name-charset-group-alist
+  (if (or (and (fboundp 'find-coding-system) (find-coding-system 'utf-8))
+         (and (fboundp 'coding-system-p) (coding-system-p 'utf-8)))
       '((".*" . utf-8))
     nil)
   "Alist of group regexp and the charset for group names.