Mercurial > emacs

changeset 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 7ac492184bca
children dc850f93472a
files lisp/gnus/mm-util.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el	Mon Mar 05 13:05:42 2001 +0000
+++ b/lisp/gnus/mm-util.el	Mon Mar 05 13:36:43 2001 +0000
@@ -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