Mercurial > emacs

comparison lisp/gnus/mm-util.el @ 36539:9b4d3e18dcf7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mm-mime-mule-charset-alist): Fix utf-8 case.
author Dave Love <fx@gnu.org>
date Mon, 05 Mar 2001 13:36:43 +0000
parents d860a6ae5843
children 8af75e618534
comparison
equal deleted inserted replaced
36538:7ac492184bca 36539:9b4d3e18dcf7
69 korean-ksc5601 japanese-jisx0212 69 korean-ksc5601 japanese-jisx0212
70 chinese-cns11643-1 chinese-cns11643-2 70 chinese-cns11643-1 chinese-cns11643-2
71 chinese-cns11643-3 chinese-cns11643-4 71 chinese-cns11643-3 chinese-cns11643-4
72 chinese-cns11643-5 chinese-cns11643-6 72 chinese-cns11643-5 chinese-cns11643-6
73 chinese-cns11643-7) 73 chinese-cns11643-7)
74 ,(if (or (charsetp 'unicode-a) 74 ;; utf-8 comes either from Mule-UCS or Mule 5+.
75 (not (coding-system-p 'mule-utf-8))) 75 ,@(if (mm-coding-system-p 'utf-8)
76 '(utf-8 unicode-a unicode-b unicode-c unicode-d unicode-e) 76 (list (cons 'utf-8 (delete 'ascii
77 ;; If we have utf-8 we're in Mule 5+. 77 (coding-system-get
78 (delete 'ascii (coding-system-get 'mule-utf-8 'safe-charsets)))) 78 'mule-utf-8
79 'safe-charsets))))))
79 "Alist of MIME-charset/MULE-charsets.") 80 "Alist of MIME-charset/MULE-charsets.")
80 81
81 (eval-and-compile 82 (eval-and-compile
82 (mapcar 83 (mapcar
83 (lambda (elem) 84 (lambda (elem)