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

* 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 689b971..b7d341c 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-group.el: Require `mm-url' only when compiling.
 	(gnus-group-fetch-charter): Require `mm-url'.
 
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)
    ""))