From a0d3d2935f935dfac562df801d4fe841c876af7a Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 31 Aug 2020 19:13:23 +0200 Subject: [PATCH] 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 35ff47fd098..10ac696fecf 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) -- 2.39.2