diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2008-09-30 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * mail/mail-utils.el (mail-unquote-printable-region): Use | ||
| 4 | insert-byte instead of insert-char, when the UNIBYTE arg is | ||
| 5 | non-nil. | ||
| 6 | |||
| 1 | 2008-09-30 Daiki Ueno <ueno@unixuser.org> | 7 | 2008-09-30 Daiki Ueno <ueno@unixuser.org> |
| 2 | 8 | ||
| 3 | * epa-file.el (epa-file-insert-file-contents): Fix typo. | 9 | * 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." | |||
| 141 | (if unibyte | 141 | (if unibyte |
| 142 | (progn | 142 | (progn |
| 143 | (replace-match "") | 143 | (replace-match "") |
| 144 | ;; insert-char will insert this as unibyte, | 144 | ;; insert-byte will insert this as a |
| 145 | (insert-char char 1)) | 145 | ;; corresponding eight-bit character. |
| 146 | (insert-byte char 1)) | ||
| 146 | (replace-match (make-string 1 char) t t)))) | 147 | (replace-match (make-string 1 char) t t)))) |
| 147 | (noerror | 148 | (noerror |
| 148 | (setq failed t)) | 149 | (setq failed t)) |