;;; Code:
(require 'mime-def)
-(require 'poem)
(require 'alist)
-(require 'path-util)
(defcustom mime-encoding-list
'("7bit" "8bit" "binary" "base64" "quoted-printable")
(mel-define-method mime-encode-region (start end (nil "7bit")))
(mel-define-method mime-decode-region (start end (nil "7bit")))
(mel-define-method-function (mime-insert-encoded-file filename (nil "7bit"))
- 'insert-file-contents-as-binary)
+ 'binary-insert-file-contents)
(mel-define-method-function (mime-write-decoded-region
start end filename (nil "7bit"))
- 'write-region-as-binary)
+ 'binary-write-region)
(mel-define-backend "8bit" ("7bit"))
(insert (base64-encode-string
(with-temp-buffer
(set-buffer-multibyte nil)
- (insert-file-contents-as-binary filename)
+ (binary-insert-file-contents filename)
(buffer-string))))
(or (bolp) (insert ?\n)))