From: yamaoka <yamaoka>
Date: Tue, 3 Sep 2002 06:47:19 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-01-quimby~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=aaea702d17f1c921c1bb948232cfdf7a5e6b9e8e;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 342f5f1..a1bd2ba 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2002-09-03  Katsumi Yamaoka <yamaoka@jpl.org>
 
+	* mm-util.el (mm-coding-system-priorities): Default to a list of
+	iso-2022-jp and others for the Japanese environment.
+
+2002-09-03  Katsumi Yamaoka <yamaoka@jpl.org>
+
 	* gnus-util.el (gnus-frame-or-window-display-name): Exclude
 	invalid display names.
 
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 750c3ec..adf14b5 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -270,18 +270,19 @@ Valid elements include:
 	mm-iso-8859-15-compatible))
   "A table of the difference character between ISO-8859-X and ISO-8859-15.")
 
-(defcustom mm-coding-system-priorities nil
+(defcustom mm-coding-system-priorities
+  (if (boundp 'current-language-environment)
+      (let ((lang (symbol-value 'current-language-environment)))
+	(cond ((string= lang "Japanese")
+	       ;; Japanese users may prefer iso-2022-jp to shift-jis.
+	       '(iso-2022-jp iso-2022-jp-2 japanese-shift-jis
+			     iso-latin-1 utf-8)))))
   "Preferred coding systems for encoding outgoing mails.
 
 More than one suitable coding systems may be found for some texts.  By
 default, a coding system with the highest priority is used to encode
 outgoing mails (see `sort-coding-systems').  If this variable is set,
-it overrides the default priority.  For example, Japanese users may
-prefer iso-2022-jp to japanese-shift-jis:
-
-\(setq mm-coding-system-priorities
-  '(iso-2022-jp iso-2022-jp-2 japanese-shift-jis iso-latin-1 utf-8))
-"
+it overrides the default priority."
   :type '(repeat (symbol :tag "Coding system"))
   :group 'mime)