Mercurial > emacs

diff lisp/gnus/mm-util.el @ 90317:34c8b755296d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-23 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 113-118) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 38-39) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 24 Feb 2006 08:08:56 +0000
parents 9e490faa9f6b 12d289b6e5de
children 5754737d1e04
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el	Fri Feb 24 06:32:18 2006 +0000
+++ b/lisp/gnus/mm-util.el	Fri Feb 24 08:08:56 2006 +0000
@@ -174,7 +174,7 @@
     (if (fboundp 'coding-system-p)
 	(when (coding-system-p cs)
 	  cs)
-      ;; Is this branch ever actually useful?
+      ;; no-MULE XEmacs:
       (car (memq cs (mm-get-coding-system-list))))))
 
 (defvar mm-charset-synonym-alist
@@ -331,7 +331,7 @@
 	  cs mime mule alist)
       (while css
 	(setq cs (pop css)
-	      mime (or (coding-system-get cs :mime-charset) ; Emacs 23
+	      mime (or (coding-system-get cs :mime-charset); Emacs 23 (unicode)
 		       (coding-system-get cs 'mime-charset)))
 	(when (and mime
 		   (not (eq t (setq mule