diff options
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/mm-util.el | 14 |
2 files changed, 11 insertions, 7 deletions
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 9ef215ab2c7..00f5cb5b345 100644 --- 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 a970877ace1..95f0d93602e 100644 --- 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) |