Mercurial > emacs

comparison lisp/gnus/mm-util.el @ 34724:15c6663e5676 zsh-merge-ognus-1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 ab964e52e0ba
children a408e1d28e3d
comparison
equal deleted inserted replaced
34723:280208982195 34724:15c6663e5676
119 (defun mm-get-coding-system-list () 119 (defun mm-get-coding-system-list ()
120 "Get the coding system list." 120 "Get the coding system list."
121 (or mm-coding-system-list 121 (or mm-coding-system-list
122 (setq mm-coding-system-list (mm-coding-system-list)))) 122 (setq mm-coding-system-list (mm-coding-system-list))))
123 123
124 (defun mm-coding-system-p (sym)
125 "Return non-nil if SYM is a coding system."
126 (or (and (fboundp 'coding-system-p) (coding-system-p sym))
127 (memq sym (mm-get-coding-system-list))))
128
124 (defvar mm-charset-synonym-alist 129 (defvar mm-charset-synonym-alist
125 `((big5 . cn-big5) 130 `((big5 . cn-big5)
126 (gb2312 . cn-gb-2312) 131 (gb2312 . cn-gb-2312)
127 ;; Windows-1252 is actually a superset of Latin-1. See also 132 ;; Windows-1252 is actually a superset of Latin-1. See also
128 ;; `gnus-article-dumbquotes-map'. 133 ;; `gnus-article-dumbquotes-map'.
129 (unless (mm-coding-system-p 'windows-1252) ; should be defined eventually 134 ,(unless (mm-coding-system-p 'windows-1252) ; should be defined eventually
130 (windows-1252 . iso-8859-1)) 135 '(windows-1252 . iso-8859-1))
131 (x-ctext . ctext)) 136 (x-ctext . ctext))
132 "A mapping from invalid charset names to the real charset names.") 137 "A mapping from invalid charset names to the real charset names.")
133
134 (defun mm-coding-system-p (sym)
135 "Return non-nil if SYM is a coding system."
136 (or (and (fboundp 'coding-system-p) (coding-system-p sym))
137 (memq sym (mm-get-coding-system-list))))
138 138
139 (defvar mm-binary-coding-system 139 (defvar mm-binary-coding-system
140 (cond 140 (cond
141 ((mm-coding-system-p 'binary) 'binary) 141 ((mm-coding-system-p 'binary) 'binary)
142 ((mm-coding-system-p 'no-conversion) 'no-conversion) 142 ((mm-coding-system-p 'no-conversion) 'no-conversion)