projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create branch 'doodle'.
[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))
(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)
))
(mm-define-method write-entity-body ((entity buffer) filename)
@@
-179,10
+179,14
@@
decoded
(1+ (string-width field-name))
fill-column)))
decoded
(1+ (string-width field-name))
fill-column)))
+ (setq beg (point))
(insert field-name)
(insert ":")
(insert (ew-crlf-to-lf decoded))
(insert "\n")
(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))
))))))))
))))))))