projects
/
elisp
/
flim.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0fe8e73
)
(mime-write-entity): Use implementation of mm-backend.
author
morioka
<morioka>
Tue, 30 Jun 1998 13:21:13 +0000
(13:21 +0000)
committer
morioka
<morioka>
Tue, 30 Jun 1998 13:21:13 +0000
(13:21 +0000)
mime.el
patch
|
blob
|
history
diff --git
a/mime.el
b/mime.el
index
e6d0fb9
..
ba95a43
100644
(file)
--- a/
mime.el
+++ b/
mime.el
@@
-287,7
+287,7
@@
ENTITY is used."
(setq invisible-fields (cdr invisible-fields))
)
t)))
(setq invisible-fields (cdr invisible-fields))
)
t)))
-
+
(defun mime-insert-decoded-header (entity
&optional invisible-fields visible-fields
code-conversion)
(defun mime-insert-decoded-header (entity
&optional invisible-fields visible-fields
code-conversion)
@@
-396,14
+396,7
@@
ENTITY is used."
(defun mime-write-entity (entity filename)
"Write ENTITY into FILENAME."
(defun mime-write-entity (entity filename)
"Write ENTITY into FILENAME."
- (save-excursion
- (set-buffer (mime-entity-buffer entity))
- (if (mime-entity-cooked-p entity)
- (write-region (mime-entity-point-min entity)
- (mime-entity-point-max entity) filename)
- (write-region-as-binary (mime-entity-point-min entity)
- (mime-entity-point-max entity) filename)
- )))
+ (mime-entity-send entity 'write-entity filename))
(defun mime-write-entity-body (entity filename)
"Write body of ENTITY into FILENAME."
(defun mime-write-entity-body (entity filename)
"Write body of ENTITY into FILENAME."