From: yamaoka <yamaoka>
Date: Wed, 30 Apr 2003 01:55:39 +0000 (+0000)
Subject: Synch to Oort Gnus 200304300156.
X-Git-Tag: t-gnus-6_15_21-00-quimby~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d153031511c30658151851e1b40590b43189d045;p=elisp%2Fgnus.git-

Synch to Oort Gnus 200304300156.
* lpath.el: Bind `default-mime-charset-unlimited'.
---

diff --git a/ChangeLog b/ChangeLog
index e873a32..754f05f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-04-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/lpath.el: Bind `default-mime-charset-unlimited'.
+
 2003-04-29  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/dgnushack.el: Autoload font-lock and nnheader for XEmacs
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44ee798..ed5c282 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-04-30  Simon Josefsson  <jas@extundo.com>
+
+	* mm-util.el (mm-charset-to-coding-system): Use user specified
+	charset unless coding-system-get is fboundp.
+
 2003-04-30  Kevin Greiner <kgreiner@xpediantsolutions.com>
 
 	* gnus-agent.el (gnus-agent-cat-defaccessor, gnus-agent-cat-name):
diff --git a/lisp/lpath.el b/lisp/lpath.el
index 3171f5f..e9e1613 100644
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -101,7 +101,7 @@
 	(t
 	 nil)))
       (common-vars
-       '(navi2ch-mona-font)))
+       '(default-mime-charset-unlimited navi2ch-mona-font)))
   (maybe-fbind functions)
   (maybe-fbind common-fns)
   (maybe-bind variables)
diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 85dc2b3..08d9284 100644
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -344,7 +344,8 @@ used as the line break code type of the coding system."
    ((null charset)
     charset)
    ;; Running in a non-MULE environment.
-   ((null (mm-get-coding-system-list))
+   ((or (null (mm-get-coding-system-list))
+	(not (fboundp 'coding-system-get)))
     charset)
    ;; ascii
    ((eq charset 'us-ascii)