procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* mm-util.el (mm-charset-synonym-alist): Fix a typo.
This commit is contained in:
ShengHuo ZHU 2000-12-19 21:59:48 +00:00
parent d925df900a
commit 3df3ee3549
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View file

@ -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.

14
lisp/gnus/mm-util.el
View file

@ -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)