Mercurial > emacs
changeset 34724:15c6663e5676 zsh-merge-ognus-1
2000-12-19 ShengHuo ZHU <zsh@cs.rochester.edu>
* mm-util.el (mm-charset-synonym-alist): Fix a typo.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Tue, 19 Dec 2000 21:59:48 +0000 |
| parents | 280208982195 |
| children | 30f56d213a09 |
| files | lisp/gnus/ChangeLog lisp/gnus/mm-util.el |
| diffstat | 2 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)