[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a0d3d29 2/2: Make quoted-printable-encode-region work in multibyt
From: |
Lars Ingebrigtsen |
Subject: |
master a0d3d29 2/2: Make quoted-printable-encode-region work in multibyte buffers |
Date: |
Mon, 31 Aug 2020 13:13:37 -0400 (EDT) |
branch: master
commit a0d3d2935f935dfac562df801d4fe841c876af7a
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make quoted-printable-encode-region work in multibyte buffers
* lisp/mail/qp.el (quoted-printable-encode-region): If we're in a
multibyte buffer (that has been encoded with some coding system),
then get-byte will get the correct byte value.
---
lisp/mail/qp.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/mail/qp.el b/lisp/mail/qp.el
index 35ff47f..10ac696 100644
--- a/lisp/mail/qp.el
+++ b/lisp/mail/qp.el
@@ -125,7 +125,7 @@ encode lines starting with \"From\"."
(not (eobp)))
(insert
(prog1
- (format "=%02X" (char-after))
+ (format "=%02X" (get-byte))
(delete-char 1))))
;; Encode white space at the end of lines.
(goto-char (point-min))
@@ -134,7 +134,7 @@ encode lines starting with \"From\"."
(while (not (eolp))
(insert
(prog1
- (format "=%02X" (char-after))
+ (format "=%02X" (get-byte))
(delete-char 1)))))
(let ((ultra
(and (boundp 'mm-use-ultra-safe-encoding)