Fix :mime-charset properties.

6 files changed, 15 insertions, 15 deletions

diff --git a/lisp/language/chinese.el b/lisp/language/chinese.el
index 1ae93a4abba..2fb99d243ef 100644
--- a/lisp/language/chinese.el
+++ b/lisp/language/chinese.el
@@ -44,7 +44,7 @@
                nil]
  :flags '(ascii-at-eol ascii-at-cntl 7-bit
                        designation locking-shift single-shift init-at-bol)
- :plist '(mime-charset . iso-2022-cn))
+ :mime-charset 'iso-2022-cn)
 
 (define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn)
 
@@ -63,7 +63,7 @@
                       chinese-cns11643-6 chinese-cns11643-7)]
   :flags '(ascii-at-eol ascii-at-cntl 7-bit
                         designation locking-shift single-shift init-at-bol)
-  :plist '(mime-charset iso-2022-cn-ext))
+  :mime-charset 'iso-2022-cn-ext)
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -76,7 +76,7 @@
   :mnemonic ?c
   :charset-list '(ascii chinese-gb2312)
   :designation [ascii chinese-gb2312 nil nil]
-  :plist '(mime-charset cn-gb))
+  :mime-charset 'cn-gb)
 
 (define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit)
 (define-coding-system-alias 'euc-china 'chinese-iso-8bit)
@@ -89,7 +89,7 @@
  :coding-type 'utf-8
  :mnemonic ?z
  :charset-list '(ascii chinese-gb2312)
- :plist '(mime-charset hz-gb-2312)
+ :mime-charset 'hz-gb-2312
  :post-read-conversion 'post-read-decode-hz
  :pre-write-conversion 'pre-write-encode-hz)
 
@@ -133,7 +133,7 @@
   :coding-type 'charset
   :mnemonic ?B 
   :charset-list '(ascii big5)
-  :plist '(mime-charset big5))
+  :mime-charset 'big5)
 
 (define-coding-system-alias 'big5 'chinese-big5)
 (define-coding-system-alias 'cn-big5 'chinese-big5)
@@ -171,7 +171,7 @@
                                           chinese-cns11643-5
                                           chinese-cns11643-6
                                           chinese-cns11643-7) nil]
-  :plist '(mime-charset euc-tw))
+  :mime-charset 'euc-tw)
 
 (define-coding-system-alias 'euc-taiwan 'euc-tw)
 
diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 5dfe2f186fa..469194893df 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -33,7 +33,7 @@
   :coding-type 'charset
   :mnemonic ?7
   :charset-list '(iso-8859-7)
-  :plist '(mime-charset iso-8859-7))
+  :mime-charset 'iso-8859-7)
 
 (define-coding-system-alias 'iso-8859-7 'greek-iso-8bit)
 
diff --git a/lisp/language/hebrew.el b/lisp/language/hebrew.el
index a56084686d4..1642ac259db 100644
--- a/lisp/language/hebrew.el
+++ b/lisp/language/hebrew.el
@@ -36,7 +36,7 @@
   :coding-type 'charset
   :mnemonic ?8
   :charset-list '(iso-8859-8)
-  :plist '(mime-charset iso-8859-8))
+  :mime-charset 'iso-8859-8)
 
 (define-coding-system-alias 'iso-8859-8 'hebrew-iso-8bit)
 
diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el
index fa55cc2a47e..0da43a8bb8e 100644
--- a/lisp/language/japanese.el
+++ b/lisp/language/japanese.el
@@ -39,7 +39,7 @@
   :flags '(short ascii-at-eol ascii-at-cntl 7-bit designation)
   :charset-list '(ascii japanese-jisx0208-1978 japanese-jisx0208
                            latin-jisx0201 japanese-jisx0212)
-  :plist '(mime-charset iso-2022-jp))
+  :mime-charset 'iso-2022-jp)
 
 (define-coding-system-alias 'junet 'iso-2022-jp)
 
@@ -59,14 +59,14 @@
                         latin-jisx0201 japanese-jisx0212
                         chinese-gb2312 korean-ksc5601
                         latin-iso8859-1 greek-iso8859-7)
-  :plist '(mime-charset iso-2022-jp-2))
+  :mime-charset 'iso-2022-jp-2)
 
 (define-coding-system 'japanese-shift-jis
   "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)"
   :coding-type 'shift-jis
   :mnemonic ?S
   :charset-list '(ascii katakana-jisx0201 japanese-jisx0208)
-  :plist '(mime-charset shift_jis))
+  :mime-charset 'shift_jis)
 
 (define-coding-system-alias 'shift_jis 'japanese-shift-jis)
 (define-coding-system-alias 'sjis 'japanese-shift-jis)
@@ -94,7 +94,7 @@
   :charset-list '(ascii latin-jisx0201 japanese-jisx0208
                            japanese-jisx0208-1978
                            katakana-jisx0201 japanese-jisx0212)
-  :plist '(mime-charset euc-jp))
+  :mime-charset 'euc-jp)
 
 (define-coding-system-alias 'euc-japan-1990 'japanese-iso-8bit)
 (define-coding-system-alias 'euc-japan 'japanese-iso-8bit)
diff --git a/lisp/language/korean.el b/lisp/language/korean.el
index bd267437a17..b1f658efe80 100644
--- a/lisp/language/korean.el
+++ b/lisp/language/korean.el
@@ -34,7 +34,7 @@
   :mnemonic ?K
   :designation [ascii korean-ksc5601 nil nil]
   :charset-list '(ascii korean-ksc5601)
-  :plist '(mime-charset euc-kr))
+  :mime-charset 'euc-kr)
 
 (define-coding-system-alias 'euc-kr 'korean-iso-8bit)
 (define-coding-system-alias 'euc-korea 'korean-iso-8bit)
@@ -47,7 +47,7 @@
   :flags '(ascii-at-eol ascii-at-cntl 7-bit designation locking-shift
                         designation-bol)
   :charset-list '(ascii korean-ksc5601)
-  :plist '(mime-charset iso-2022-kr))
+  :mime-charset 'iso-2022-kr)
 
 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
 
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index aa523279b25..808596c34cb 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -33,7 +33,7 @@
   :coding-type 'charset
   :mnemonic ?V
   :charset-list '(viscii)
-  :plist '(mime-charset viscii))
+  :mime-charset 'viscii)
 
 (define-coding-system-alias 'viscii 'vietnamese-viscii)