X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mel-q-ccl.el;h=cccacd86e35de46fafa07f5de2c8adcc381bb993;hb=6f5c1a4f7caf54dd66a27b8fc2e12c18348c3d6b;hp=3769fb93073a80137975a1db434344f8ad886133;hpb=5dbae50f8822c11ab15b5650a78d1bd72b9df60a;p=elisp%2Fflim.git

diff --git a/mel-q-ccl.el b/mel-q-ccl.el
index 3769fb9..cccacd8 100644
--- a/mel-q-ccl.el
+++ b/mel-q-ccl.el
@@ -898,9 +898,13 @@ abcdefghijklmnopqrstuvwxyz\
   (defun quoted-printable-ccl-insert-encoded-file (filename)
     "Encode contents of the file named as FILENAME, and insert it."
     (interactive "*fInsert encoded file: ")
-    (let ((coding-system-for-read 'mel-ccl-quoted-printable-lf-lf-rev)
-	  format-alist)
-      (insert-file-contents filename)))
+    (insert
+     (decode-coding-string
+      (with-temp-buffer
+	(set-buffer-multibyte nil)
+	(insert-file-contents-as-binary filename)
+	(buffer-string))
+      'mel-ccl-quoted-printable-lf-lf-rev)))
 
   (mel-define-method-function
    (mime-encode-string string (nil "quoted-printable"))