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

(mm-mime-mule-charset-alist): Fix utf-8 case.

Browse source
This commit is contained in:
Dave Love 2001-03-05 13:37:38 +00:00
parent 75dfe99079
commit f891ed299c
2 changed files with 10 additions and 5 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 @@
2001-03-05 Dave Love <fx@gnu.org>
* mm-util.el (mm-mime-mule-charset-alist): Fix utf-8 case.
2001-03-01 Dave Love <fx@gnu.org>
* mm-util.el (mm-inhibit-file-name-handlers): Add

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

@ -71,11 +71,12 @@
chinese-cns11643-3 chinese-cns11643-4
chinese-cns11643-5 chinese-cns11643-6
chinese-cns11643-7)
,(if (or (charsetp 'unicode-a)
(not (coding-system-p 'mule-utf-8)))
'(utf-8 unicode-a unicode-b unicode-c unicode-d unicode-e)
;; If we have utf-8 we're in Mule 5+.
(delete 'ascii (coding-system-get 'mule-utf-8 'safe-charsets))))
;; utf-8 comes either from Mule-UCS or Mule 5+.
,@(if (mm-coding-system-p 'utf-8)
(list (cons 'utf-8 (delete 'ascii
(coding-system-get
'mule-utf-8
'safe-charsets))))))
"Alist of MIME-charset/MULE-charsets.")
(eval-and-compile