X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mmbuffer.el;h=f16f0d1be4cb2ccd610b9f2e97043cee47a4019f;hb=134e48e8d677e1b73a3ef789d7c9f01529df47e2;hp=5913265361ef77fb6b06d20ffabf8768286b568e;hpb=a7ef9fab327836625557cfd1811a0584a00f93d9;p=elisp%2Fflim.git

diff --git a/mmbuffer.el b/mmbuffer.el
index 5913265..f16f0d1 100644
--- a/mmbuffer.el
+++ b/mmbuffer.el
@@ -113,9 +113,9 @@
 (mm-define-method write-entity ((entity buffer) filename)
   (save-excursion
     (set-buffer (mime-entity-buffer-internal entity))
-    (write-region-as-binary (mime-entity-header-start-internal entity)
-			    (mime-entity-body-end-internal entity)
-			    filename)
+    (write-region-as-raw-text-CRLF (mime-entity-header-start-internal entity)
+				   (mime-entity-body-end-internal entity)
+				   filename)
     ))
 
 (mm-define-method write-entity-body ((entity buffer) filename)
@@ -179,10 +179,14 @@
 				 decoded
 				 (1+ (string-width field-name))
 				 fill-column)))
+		(setq beg (point))
 		(insert field-name)
 		(insert ":")
 		(insert (ew-crlf-to-lf decoded))
 		(insert "\n")
+		(add-text-properties beg (point)
+				     (list 'original-field-name field-name
+					   'original-field-body field-body))
 		))))))))