;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Code:
(require 'mmgeneric)
(require 'mime)
-(require 'pces)
(eval-and-compile
(luna-define-class mime-external-entity (mime-entity)
(concat " *Body of "
(mime-entity-name entity)
"*"))
- (insert-file-contents-as-binary
+ (binary-insert-encoded-file
(mime-external-entity-body-file-internal entity))
(current-buffer))))
(error (message "Can't get external-body.")))))
(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
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-decoded-region (point-min) (point-max) filename)))
;;; @ entity content
(let ((ret (std11-fetch-field field-name)))
(when ret
(or (symbolp field-name)
- (setq field-name
- (intern (capitalize (capitalize field-name)))))
+ (setq field-name (intern (capitalize field-name))))
(mime-entity-set-original-header-internal
entity
(put-alist field-name ret