* mel-ccl.el (base64-ccl-insert-encoded-file): Use

[elisp/flim.git] / mmbuffer.el

diff --git a/mmbuffer.el b/mmbuffer.el
index 5913265..f16f0d1 100644 (file)
--- 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))
                ))))))))