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 35ff47fd098441ca54f0fc22e02afb740800a54c..10ac696fecf93693265cf5681103481ef49a4c33 100644 (file)
--- 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)