From 30272f8806a6ead13785e0690fa8c1a50f9999f8 Mon Sep 17 00:00:00 2001 From: keiichi Date: Fri, 24 Dec 1999 02:37:02 +0000 Subject: [PATCH] (TopLevel): Require `mcharset'. (gnus-group-charset-alist): Use content of `default-mime-charset' instead of `iso-8859-1' for default group charset. --- lisp/gnus-sum.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 646e145..561f4a5 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -27,6 +27,7 @@ (eval-when-compile (require 'cl)) +(require 'mcharset) (require 'gnus) (require 'gnus-group) (require 'gnus-spec) @@ -807,7 +808,7 @@ which it may alter in any way.") :type 'regexp) (defcustom gnus-group-charset-alist - '(("^hk\\>\\|^tw\\>\\|\\" cn-big5) + `(("^hk\\>\\|^tw\\>\\|\\" cn-big5) ("^cn\\>\\|\\" cn-gb-2312) ("^fj\\>\\|^japan\\>" iso-2022-jp-2) ("^relcom\\>" koi8-r) @@ -816,7 +817,7 @@ which it may alter in any way.") ("^israel\\>" iso-8859-1) ("^han\\>" euc-kr) ("^\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-1) - (".*" iso-8859-1)) + (".*" ,default-mime-charset)) "Alist of regexps (to match group names) and default charsets to be used when reading." :type '(repeat (list (regexp :tag "Group") (symbol :tag "Charset"))) -- 1.7.10.4