From: yamaoka <yamaoka>
Date: Wed, 17 May 2000 01:01:34 +0000 (+0000)
Subject: * dgnushack.el (dgnushack-texi-format): Use `output-coding-system' instead of
X-Git-Tag: t-gnus-6_14_4-02~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6b4915acd81f1ea5433b52cedf39ab5c6cfbff96;p=elisp%2Fgnus.git-

* dgnushack.el (dgnushack-texi-format): Use `output-coding-system' instead of
`coding-system-for-write' when old Mule is used.
---

diff --git a/ChangeLog b/ChangeLog
index 4dd8a73..bab2c1b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2000-05-17  Katsumi Yamaoka <yamaoka@jpl.org>
+
+	* lisp/dgnushack.el (dgnushack-texi-format): Use
+	`output-coding-system' instead of `coding-system-for-write' when
+	old Mule is used.
+
 2000-05-16  Katsumi Yamaoka <yamaoka@jpl.org>
 
 	* lisp/message.el (message-forward) Replace the use of `eolp' with
diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 9c01d4f..3afc5ab 100644
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -379,7 +379,8 @@ You must specify the name of the package path as follows:
   (require 'texinfmt)
   (let ((auto-save-default nil)
 	(find-file-run-dired nil)
-	coding-system-for-write)
+	coding-system-for-write
+	output-coding-system)
     (let ((error 0)
 	  file
 	  (files ()))
@@ -403,7 +404,9 @@ You must specify the name of the package path as follows:
 	    (progn
 	      (if buffer-file-name (kill-buffer (current-buffer)))
 	      (find-file file)
-	      (setq coding-system-for-write buffer-file-coding-system)
+	      (if (boundp 'MULE)
+		  (setq coding-system-for-write buffer-file-coding-system)
+		(setq output-coding-system (symbol-value 'file-coding-system)))
 	      (when (and addsuffix
 			 (re-search-forward
 			  "^@setfilename[\t ]+\\([^\t\n ]+\\)" nil t)