From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 31 Aug 2020 17:13:23 +0000 (+0200)
Subject: Make quoted-printable-encode-region work in multibyte buffers
X-Git-Tag: emacs-28.0.90~6297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a0d3d2935f935dfac562df801d4fe841c876af7a;p=emacs.git

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.
---

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)