--- mel-q-ccl.el~	2006-06-12 15:10:02 +0000
+++ mel-q-ccl.el	2008-04-03 06:33:51 +0000
@@ -893,7 +893,13 @@
   (defun quoted-printable-ccl-encode-region (start end)
     "Encode the region from START to END with quoted-printable encoding."
     (interactive "*r")
-    (decode-coding-region start end 'mel-ccl-quoted-printable-lf-lf-rev))
+    (save-excursion
+      (goto-char start)
+      (insert (prog1
+		  (decode-coding-string
+		   (string-as-unibyte (buffer-substring start end))
+		   'mel-ccl-quoted-printable-lf-lf-rev)
+		(delete-region start end)))))

   (defun quoted-printable-ccl-insert-encoded-file (filename)
     "Encode contents of the file named as FILENAME, and insert it."