Changes committed gnus/lisp (ChangeLog mm-util.el)

Modified: ChangeLog mm-util.el

(mm-coding-system-priorities): Allow the valu like "Japanese (UTF-8)" of
 current-language-environment.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1973 gnus/lisp/ChangeLog:7.1974
--- ChangeLog:7.1973	Thu Jan  8 21:51:29 2009
+++ ChangeLog	Fri Jan  9 04:16:50 2009
@@ -1,3 +1,8 @@
+2009-01-09  Katsumi Yamaoka  <[email protected]>
+
+	* mm-util.el (mm-coding-system-priorities): Allow the valu like
+	"Japanese (UTF-8)" of current-language-environment.
+
 2009-01-08  Reiner Steib  <[email protected]>
 
 	* imap.el (imap-enable-exchange-bug-workaround): Explain auto-detection
Index: mm-util.el
diff -u gnus/lisp/mm-util.el:7.89 gnus/lisp/mm-util.el:7.90
--- mm-util.el:7.89	Mon Jan  5 23:09:39 2009
+++ mm-util.el	Fri Jan  9 04:16:50 2009
@@ -842,7 +842,8 @@
 (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.