From f45de83bf8fd3d3a475e77afff4dee434400187e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 30 Sep 2008 11:54:57 +0000 Subject: [PATCH] (mail-unquote-printable-region): Use insert-byte instead of insert-char, when the UNIBYTE arg is non-nil. --- lisp/ChangeLog | 6 ++++++ lisp/mail/mail-utils.el | 5 +++-- 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 + + * 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 * 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)) -- 2.39.5