From c1e794b484c35bd920e503de3c18e8c056c4e128 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Fri, 9 Jan 2009 03:16:50 +0000 Subject: [PATCH] (mm-coding-system-priorities): Allow the valu like "Japanese (UTF-8)" of current-language-environment. --- lisp/ChangeLog | 5 +++++ lisp/mm-util.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bfd769354..dad6c880e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-01-09 Katsumi Yamaoka + + * mm-util.el (mm-coding-system-priorities): Allow the valu like + "Japanese (UTF-8)" of current-language-environment. + 2009-01-08 Reiner Steib * imap.el (imap-enable-exchange-bug-workaround): Explain auto-detection diff --git a/lisp/mm-util.el b/lisp/mm-util.el index 3d8538d4a..c1fb1a6ab 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -842,7 +842,8 @@ Valid elements include: (defcustom mm-coding-system-priorities (if (boundp 'current-language-environment) (let ((lang (symbol-value 'current-language-environment))) - (cond ((string= lang "Japanese") + (cond (;; In XEmacs 21.5 it may be the one like "Japanese (UTF-8)". + (string-match "\\`Japanese" lang) ;; Japanese users prefer iso-2022-jp to euc-japan or ;; shift_jis, however iso-8859-1 should be used when ;; there are only ASCII text and Latin-1 characters. -- 2.25.1