# HG changeset patch
# User ShengHuo ZHU <zsh@cs.rochester.edu>
# Date 977263188 0
# Node ID 15c6663e567613de3e6f1a495c12a30402c2c32e
# Parent  28020898219592e3e4db0caeae826537561ea2ba
2000-12-19  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* mm-util.el (mm-charset-synonym-alist): Fix a typo.

diff -r 280208982195 -r 15c6663e5676 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Tue Dec 19 18:00:46 2000 +0000
+++ b/lisp/gnus/ChangeLog	Tue Dec 19 21:59:48 2000 +0000
@@ -1,3 +1,7 @@
+2000-12-19  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* mm-util.el (mm-charset-synonym-alist): Fix a typo.
+
 2000-12-18  Gerd Moellmann  <gerd@gnu.org>
 
 	* *.xpm, *.pbm: Convert icons icons to size 24x24.
diff -r 280208982195 -r 15c6663e5676 lisp/gnus/mm-util.el
--- a/lisp/gnus/mm-util.el	Tue Dec 19 18:00:46 2000 +0000
+++ b/lisp/gnus/mm-util.el	Tue Dec 19 21:59:48 2000 +0000
@@ -121,21 +121,21 @@
   (or mm-coding-system-list
       (setq mm-coding-system-list (mm-coding-system-list))))
 
+(defun mm-coding-system-p (sym)
+  "Return non-nil if SYM is a coding system."
+  (or (and (fboundp 'coding-system-p) (coding-system-p sym))
+      (memq sym (mm-get-coding-system-list))))
+
 (defvar mm-charset-synonym-alist
   `((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))
+    ,(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.")
 
-(defun mm-coding-system-p (sym)
-  "Return non-nil if SYM is a coding system."
-  (or (and (fboundp 'coding-system-p) (coding-system-p sym))
-      (memq sym (mm-get-coding-system-list))))
-
 (defvar mm-binary-coding-system
   (cond 
    ((mm-coding-system-p 'binary) 'binary)