projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rename FLIM-1.14-API.en to FLIM-API.en.
[elisp/flim.git]
/
mmexternal.el
diff --git
a/mmexternal.el
b/mmexternal.el
index
9da0773
..
dde1406
100644
(file)
--- a/
mmexternal.el
+++ b/
mmexternal.el
@@
-26,7
+26,6
@@
(require 'mmgeneric)
(require 'mime)
(require 'mmgeneric)
(require 'mime)
-(require 'pces)
(eval-and-compile
(luna-define-class mime-external-entity (mime-entity)
(eval-and-compile
(luna-define-class mime-external-entity (mime-entity)
@@
-79,7
+78,7
@@
(concat " *Body of "
(mime-entity-name entity)
"*"))
(concat " *Body of "
(mime-entity-name entity)
"*"))
- (insert-file-contents-as-binary
+ (binary-insert-file-contents
(mime-external-entity-body-file-internal entity))
(current-buffer))))
(error (message "Can't get external-body.")))))
(mime-external-entity-body-file-internal entity))
(current-buffer))))
(error (message "Can't get external-body.")))))
@@
-96,7
+95,8
@@
(luna-define-method mime-write-entity ((entity mime-external-entity) filename)
(with-temp-buffer
(mime-insert-entity entity)
(luna-define-method mime-write-entity ((entity mime-external-entity) filename)
(with-temp-buffer
(mime-insert-entity entity)
- (write-region-as-raw-text-CRLF (point-min) (point-max) filename)))
+ (let ((coding-system-for-write 'raw-text-dos))
+ (write-region (point-min) (point-max) filename))))
;;; @ entity header
;;; @ entity header
@@
-120,7
+120,7
@@
filename)
(mmexternal-require-buffer entity)
(with-current-buffer (mime-external-entity-body-buffer-internal entity)
filename)
(mmexternal-require-buffer entity)
(with-current-buffer (mime-external-entity-body-buffer-internal entity)
- (write-region-as-binary (point-min) (point-max) filename)))
+ (binary-write-region (point-min) (point-max) filename)))
;;; @ entity content
;;; @ entity content