2000-12-19 ShengHuo ZHU <zsh@cs.rochester.edu>

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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 9ef215ab2c727ffe255d3e3ee034b62ee70a6547..00f5cb5b345b2e3f08bc67b375b8e4dea4dcbaf0 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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 --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el
index a970877ace1687c0418675f5a309efe6111392ae..95f0d93602e9b09eb293b91c85c1d25fdb123965 100644 (file)
--- a/lisp/gnus/mm-util.el
+++ b/lisp/gnus/mm-util.el
@@ -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)