(quoted-printable-encode-region): Go to start of range

before searching.
(quoted-printable-encode-region): Use multibyte-char-to-unibyte.

diff --git a/lisp/gnus/qp.el b/lisp/gnus/qp.el
index 26d3151bfc4c6636eab04ba2e569ef0d2bf422f0..136dbd0c9cb175c99da642e62c432ad3509fe2d8 100644 (file)
--- a/lisp/gnus/qp.el
+++ b/lisp/gnus/qp.el
@@ -93,6 +93,8 @@ If `mm-use-ultra-safe-encoding' is set, fold lines unconditionally and
 encode lines starting with \"From\"."
   (interactive "r")
   (save-excursion
+    (goto-char from)
+    ;; Fixme: This doesn't get eight-bit characters in multibyte buffers.
     (if (re-search-forward "[^\x0-\xff]" to t)
       (error "Multibyte character in QP encoding region")))
   (unless class
@@ -108,7 +110,8 @@ encode lines starting with \"From\"."
                  (not (eobp)))
        (insert
         (prog1
-            (format "=%02X" (char-after))
+            ;; To unibyte in case of eight-bit-{control,graphics}
+            (format "=%02X" (multibyte-char-to-unibyte (char-after)))
           (delete-char 1))))
       ;; Encode white space at the end of lines.
       (goto-char (point-min))