# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1034012374 0
# Node ID 1959fdc1c405c70c69ac7b7280c6ee5d80971911
# Parent  8b81c54139ef5723d246742d440631a1db28e3a6
(quoted-printable-encode-region): Go to start of range
before searching.
(quoted-printable-encode-region): Use multibyte-char-to-unibyte.

diff -r 8b81c54139ef -r 1959fdc1c405 lisp/gnus/qp.el
--- a/lisp/gnus/qp.el	Mon Oct 07 12:59:21 2002 +0000
+++ b/lisp/gnus/qp.el	Mon Oct 07 17:39:34 2002 +0000
@@ -93,6 +93,8 @@
 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 @@
 		  (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))