(mail-unquote-printable-region): Use insert-byte instead of insert-char,

when the UNIBYTE arg is non-nil.

2 files changed, 9 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 189eb553ebd..0cc37745e43 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-09-30  Eli Zaretskii  <eliz@gnu.org>
+
+        * mail/mail-utils.el (mail-unquote-printable-region): Use
+        insert-byte instead of insert-char, when the UNIBYTE arg is
+        non-nil.
+
 2008-09-30  Daiki Ueno  <ueno@unixuser.org>
 
         * epa-file.el (epa-file-insert-file-contents): Fix typo.
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 7c8593742e7..c26ec78c0be 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -141,8 +141,9 @@ as Rmail does."
                      (if unibyte
                          (progn
                            (replace-match "")
-                           ;; insert-char will insert this as unibyte,
-                           (insert-char char 1))
+                           ;; insert-byte will insert this as a
+                           ;; corresponding eight-bit character.
+                           (insert-byte char 1))
                        (replace-match (make-string 1 char) t t))))
                   (noerror
                    (setq failed t))