From: yamaoka <yamaoka>
Date: Mon, 7 Oct 2002 03:04:25 +0000 (+0000)
Subject: * mm-url.el (mm-url-form-encode-xwfu): Use `file-coding-system' instead of
X-Git-Tag: t-gnus-6_15_7-02~1
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fgnus.git-;a=commitdiff_plain;h=07f0dedfab085d59eebccf76dad55ef7f4056e53

* mm-url.el (mm-url-form-encode-xwfu): Use `file-coding-system' instead of
 `buffer-file-coding-system' when Mule 2 is running.
---

diff --git a/ChangeLog b/ChangeLog
index 10e730b..bc59d77 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2002-10-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* lisp/mm-url.el (mm-url-form-encode-xwfu): Use
+	`file-coding-system' instead of `buffer-file-coding-system' when
+	Mule 2 is running.
+
 	* lisp/gnus.el (gnus-default-charset): Default to `iso-8859-1'.
 
 2002-09-06  Katsumi Yamaoka  <yamaoka@jpl.org>
diff --git a/lisp/mm-url.el b/lisp/mm-url.el
index f1c032c..fb19b42 100644
--- a/lisp/mm-url.el
+++ b/lisp/mm-url.el
@@ -378,7 +378,9 @@ spaces.  Die Die Die."
        (encode-coding-string chunk
 			     (if (fboundp 'find-coding-systems-string)
 				 (car (find-coding-systems-string chunk))
-				 buffer-file-coding-system))
+			       (static-if (boundp 'MULE)
+				   file-coding-system
+				 buffer-file-coding-system)))
      chunk)
    ""))