From: yamaoka <yamaoka>
Date: Wed, 20 Mar 2002 11:32:03 +0000 (+0000)
Subject: * gnus-sum.el (gnus-summary-make-menu-bar): Don't provide "View as different
X-Git-Tag: t-gnus-6_15_6-01-quimby~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9f4ba5e5dd7ce6259d062ed7fc4f5886ed19e573;p=elisp%2Fgnus.git-

* gnus-sum.el (gnus-summary-make-menu-bar): Don't provide "View as different
 encoding" submenu if the function `coding-system-list' is not available.
---

diff --git a/ChangeLog b/ChangeLog
index 91f6410..8e361be 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-03-20  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-sum.el (gnus-summary-make-menu-bar): Don't provide
+	"View as different encoding" submenu if the function
+	`coding-system-list' is not available.
+
 2002-03-19  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/pop3.el (pop3-md5): Treat a given string as binary.
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index c3331e3..d9cddf3 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -1994,7 +1994,8 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs))))
 		      `[,(symbol-name cs) ,command t]))
 		  (sort (if (fboundp 'coding-system-list)
 			    (coding-system-list)
-			  (mapcar 'car mm-mime-mule-charset-alist))
+			  ;;(mapcar 'car mm-mime-mule-charset-alist)
+			  )
 			(lambda (a b)
 			  (string< (symbol-name a)
 				   (symbol-name b)))))))