# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 971349541 0
# Node ID cbdba3c5753601a71897c6c0b8cb146551a6ba2b
# Parent  f5b3d7a43d2442907ad68d78797124c06b002b70
(mm-charset-synonym-alist): Add windows-1252.

diff -r f5b3d7a43d24 -r cbdba3c57536 lisp/gnus/mm-util.el
--- a/lisp/gnus/mm-util.el	Thu Oct 12 11:07:55 2000 +0000
+++ b/lisp/gnus/mm-util.el	Thu Oct 12 11:19:01 2000 +0000
@@ -41,6 +41,8 @@
     (iso-8859-7 greek-iso8859-7)
     (iso-8859-8 hebrew-iso8859-8)
     (iso-8859-9 latin-iso8859-9)
+    (iso-8859-14 latin-iso8859-14)
+    (iso-8859-15 latin-iso8859-15)
     (viscii vietnamese-viscii-lower)
     (iso-2022-jp latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978)
     (euc-kr korean-ksc5601)
@@ -121,8 +123,12 @@
       (setq mm-coding-system-list (mm-coding-system-list))))
 
 (defvar mm-charset-synonym-alist
-  '((big5 . cn-big5)
+  `((big5 . cn-big5)
     (gb2312 . cn-gb-2312)
+    ;; Windows-1252 is actually a superset of Latin-1.  See also
+    ;; `gnus-article-dumbquotes-map'.
+    (unless (mm-coding-system-p 'windows-1252) ; should be defined eventually
+      (windows-1252 . iso-8859-1))
     (x-ctext . ctext))
   "A mapping from invalid charset names to the real charset names.")
 
@@ -264,7 +270,8 @@
 
 (defun mm-mime-charset (charset)
   "Return the MIME charset corresponding to the MULE CHARSET."
-  (if (and (fboundp 'coding-system-get) (fboundp 'get-charset-property))
+  (if (and (fboundp 'coding-system-get)
+	   (fboundp 'get-charset-property))
       ;; This exists in Emacs 20.
       (or
        (and (mm-preferred-coding-system charset)