master a0d3d29 2/2: Make quoted-printable-encode-region work in multibyte buffers

[Lars Ingebrigtsen]

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)