diff options
Diffstat (limited to 'lisp/gnus/mm-util.el')
| -rw-r--r-- | lisp/gnus/mm-util.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index d0b1eef3321..a7a14f7ae01 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -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 |