From: keiichi <keiichi>
Date: Fri, 24 Dec 1999 02:37:02 +0000 (+0000)
Subject: (TopLevel): Require `mcharset'.
X-Git-Tag: nana-gnus-7_1_0_16~73
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=30272f8806a6ead13785e0690fa8c1a50f9999f8;p=elisp%2Fgnus.git-

(TopLevel): Require `mcharset'.
(gnus-group-charset-alist): Use content of `default-mime-charset' instead of
`iso-8859-1' for default group charset.
---

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\\>\\|\\<big5\\>" cn-big5)
+  `(("^hk\\>\\|^tw\\>\\|\\<big5\\>" cn-big5)
     ("^cn\\>\\|\\<chinese\\>" 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")))