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

when the UNIBYTE arg is non-nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 189eb553ebd5a83fa9c1df9eeebbdc78e1a3159e..0cc37745e43e7140acdc766df5a2b9a7e6530652 100644 (file)
--- 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 7c8593742e7fe9139c9b0a236966c0439afa224e..c26ec78c0be62b131c4994b8da81820b0d1b1113 100644 (file)
--- 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))