From: yamaoka <yamaoka>
Date: Wed, 18 Jun 2003 09:39:53 +0000 (+0000)
Subject: Forgotten to commit. ^^;;
X-Git-Tag: t-gnus-6_16_2-02
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=12af9f5a6725c01c35144da092157fd2cd9f632e;p=elisp%2Fgnus.git-

Forgotten to commit. ^^;;
---

diff --git a/texi/infohack.el b/texi/infohack.el
index 3c173ba..2599024 100644
--- a/texi/infohack.el
+++ b/texi/infohack.el
@@ -156,7 +156,26 @@ Both characters must have the same length of multi-byte form."
 	  (texinfo-every-node-update)
 	  (set-buffer-modified-p nil)
 	  (message "texinfo formatting %s..." file)
-	  (texinfo-format-buffer nil)
+	  (if (featurep 'mule)
+	      ;; Encode messages to terminal.
+	      (let ((si:message (symbol-function 'message)))
+		(fset 'message
+		      (byte-compile
+		       (if (boundp 'MULE)
+			   `(lambda (fmt &rest args)
+			      (funcall ,si:message "%s"
+				       (code-convert-string
+					(apply 'format fmt args)
+					'*internal* '*junet*)))
+			 `(lambda (fmt &rest args)
+			    (funcall ,si:message "%s"
+				     (encode-coding-string
+				      (apply 'format fmt args)
+				      'iso-2022-7bit))))))
+		(unwind-protect
+		    (texinfo-format-buffer nil)
+		  (fset 'message si:message)))
+	    (texinfo-format-buffer nil))
 	  (if (buffer-modified-p)
 	      (progn (message "Saving modified %s" (buffer-file-name))
 		     (save-buffer))))