Mercurial > emacs

diff lisp/gnus/mm-util.el @ 69135:12d289b6e5de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-118 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 38-39) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 24 Feb 2006 05:02:12 +0000
parents 808f636eb13e
children 6580c61aced7 34c8b755296d
line wrap: on
line diff
--- a/lisp/gnus/mm-util.el	Thu Feb 23 23:16:12 2006 +0000
+++ b/lisp/gnus/mm-util.el	Fri Feb 24 05:02:12 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 22
+	      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