From: Bruno Haible <bruno@clisp.org>
Date: Mon, 11 Feb 2002 13:48:18 +0000 (+0000)
Subject: Fix encodings used during po-send-mail.
X-Git-Tag: v0.11.1~83
X-Git-Url: http://git.ipfire.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=68d9ee289e3dfa4f8efa384cdeea9f9fdbd960b0;p=thirdparty%2Fgettext.git

Fix encodings used during po-send-mail.
---

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 7c8a1845f..98ad55572 100644
--- a/misc/ChangeLog
+++ b/misc/ChangeLog
@@ -1,3 +1,12 @@
+2002-02-09  Karl Eichwalder  <ke@suse.de>
+
+	* po-mode.el (po-send-mail): Set coding-system-for-read and
+	coding-system-for-write to the coding system of the po buffer;
+	otherwise Emacs will fall back to mule-utf-8 when the default coding
+	system is different from the po buffer and thus the following
+	'shell-command-on-region' will prepare an wrongly encoded file (e.g.,
+	mule-utf-8 instead of UTF-8).
+
 2002-02-09  Karl Eichwalder  <ke@suse.de>
 
 	* po-mode.el (po-translation-project-address): Convert it to a
diff --git a/misc/po-mode.el b/misc/po-mode.el
index 04a5798ba..c48f139ff 100644
--- a/misc/po-mode.el
+++ b/misc/po-mode.el
@@ -3275,7 +3275,9 @@ Write to your team?  ('n' if writing to the Translation Project robot) ")))
 			    po-obsolete-counter))))
 	  (let ((buffer (current-buffer))
 		(name (po-guess-archive-name))
-		(transient-mark-mode nil))
+		(transient-mark-mode nil)
+		(coding-system-for-read buffer-file-coding-system)
+		(coding-system-for-write buffer-file-coding-system))
 	    (apply po-compose-mail-function address
 		   (if team-flag
 		       (read-string (_"Subject? "))