Fix encodings used during po-send-mail.

diff --git a/misc/ChangeLog b/misc/ChangeLog
index 7c8a1845f639f9c95faa7008390ee926e37fd67b..98ad555726fd851f5ad21c68166a36b2ef67234c 100644 (file)
--- 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 04a5798baf209f782e8997bac898e0837c54f144..c48f139ff23c3c4e9caad3c0854b48c130a32c0a 100644 (file)
--- 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? "))