From aaea702d17f1c921c1bb948232cfdf7a5e6b9e8e Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 3 Sep 2002 06:47:19 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/mm-util.el | 15 ++++++++------- 2 files changed, 13 insertions(+), 7 deletions(-) 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 + * 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 + * 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) -- 1.7.10.4