X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=smtpmail.el;h=6475e445cc7ec46156d90135f2ef2d8069a606be;hb=770d60c548483b13c481d3973285fbfebe2e0731;hp=8582394d90408bd7a20965edb04d1422ffd66329;hpb=7e76e917c32c53093125ea24731b6018cf2a6139;p=elisp%2Fflim.git

diff --git a/smtpmail.el b/smtpmail.el
index 8582394..6475e44 100644
--- a/smtpmail.el
+++ b/smtpmail.el
@@ -42,11 +42,11 @@
 
 ;;; Code:
 
-(require 'poe)
-(require 'pcustom)
+(require 'custom)
 (require 'smtp)
 (require 'sendmail)
 (require 'time-stamp)
+(require 'raw-io)
 
 (eval-when-compile (require 'static))
 
@@ -245,7 +245,7 @@ This is relative to `smtpmail-queue-dir'.")
 		(insert-buffer tembuf)
 		(or (file-directory-p smtpmail-queue-dir)
 		    (make-directory smtpmail-queue-dir t))
-		(write-region-as-binary (point-min) (point-max) file-data)
+		(binary-write-region (point-min) (point-max) file-data)
 		(set-buffer buffer-elisp)
 		(erase-buffer)
 		(insert (concat
@@ -281,7 +281,7 @@ This is relative to `smtpmail-queue-dir'.")
 						   (end-of-line)
 						   (point))))
 	(load file-msg)
-	(setq tembuf (find-file-noselect-as-binary file-msg))
+	(setq tembuf (binary-find-file-noselect file-msg))
 	(if smtpmail-recipient-address-list
 	    (smtp-send-buffer user-mail-address
 			      smtpmail-recipient-address-list tembuf)