Quoted-Printable なエンティテ ィの保存に失敗する

--Multipart_Wed_Nov_28_20:45:46_2007-1
Content-Type: text/plain; charset=ISO-2022-JP

$B0KF#$G$9!#(B

# [email protected] $B$K(B1$BDL=P$7$F$7$^$C$?$N$G(B
# 2$BDLFO$$$?$i$9$_$^$;$s!#(B

User-Agent $B$J4D6-$G!"%a!<%k$KE:IU$5$l$?(B Quoted-Printable $B$G(B
$B%(%s%3!<%I$5$l$?%(%s%F%#%F%#$r%G%#%9%/$KJ]B8(B
(mime-preview-extract-current-entity $BEy(B) $B$9$k$H9TKv$N(B '=' $B$,(B
$B@5$7$/%G%3!<%I$5$l$:!"$=$N$^$^;D$C$F$7$^$$$^$9!#(B

$BJ]B8;~$K(Bcoding-system-for-write $B$K@_Dj$7$F$$$k(B
mel-ccl-quoted-printable-lf-lf-rev $B$N(B EOL type $B$O(B undecided $B$G$"$j!"(B
Windows $B>e$N(B Emacs 22 $B$G$O(B EOL type $B$K(B CRLF $B$,(B
$BA*Br$5$l$F$7$^$&(B ($B7k2L!"(BEOL $B$,(B CRLF $B$J%G!<%?$,%G%3!<%@$KEO$j!"(B
$B%G%3!<%@$O$=$N%G!<%?$r(B EOL $B$,(B LF $B$H$7$F%G%3!<%I$7$F$$$k(B) $B0Y$N$h$&$G$9!#(B
$BNc$($P!"E:IU$N$h$&$J%Q%C%A$GLdBj$J$/F0:n$9$k$h$&$K$J$j$^$9!#(B

$BBP:v$r$48!F$$$$?$@$1$l$P9,$$$G$9!#(B

-- 
$B0KF#(B $BOBGn(B(Kazuhiro Ito)

--Multipart_Wed_Nov_28_20:45:46_2007-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="mel-q-ccl.el.diff"
Content-Transfer-Encoding: 7bit

--- ./mel-q-ccl.el.~1.5.6.3.~	2006-06-13 00:10:02.000000000 +0900
+++ mel-q-ccl.el	2007-11-28 19:01:00.750000000 +0900
@@ -932,7 +932,10 @@
 (defun quoted-printable-ccl-write-decoded-region (start end filename)
   "Decode quoted-printable encoded current region and write out to FILENAME."
   (interactive "*r\nFWrite decoded region to file: ")
-  (let ((coding-system-for-write 'mel-ccl-quoted-printable-lf-lf-rev)
+  (let ((coding-system-for-write
+	 (if (coding-system-p 'mel-ccl-quoted-printable-lf-lf-rev-unix)
+	     'mel-ccl-quoted-printable-lf-lf-rev-unix
+	   'mel-ccl-quoted-printable-lf-lf-rev))
 	jka-compr-compression-info-list jam-zcat-filename-list)
     (write-region start end filename)))
 

--Multipart_Wed_Nov_28_20:45:46_2007-1--