From: morioka <morioka>
Date: Fri, 16 Jul 1999 06:06:28 +0000 (+0000)
Subject: From Nakagawa, Makoto <nakagawa@pochi.tis.co.jp>:
X-Git-Tag: flim-1_13_0~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=456cea206ab0bd804abaeb3b1b55f66a14f8e811;p=elisp%2Fflim.git

From Nakagawa, Makoto <nakagawa@pochi.tis.co.jp>:
(smtpmail-send-it): Use current-time to get rid of
time-stamp-strftime.
(smtpmail-send-it): Use write-region-as-binary instead of write-file.
(smtpmail-send-queued-mail); Use find-file-noselect-as-binary instead
of find-file-noselect.
---

diff --git a/smtpmail.el b/smtpmail.el
index ba3991d..e5fbe5a 100644
--- a/smtpmail.el
+++ b/smtpmail.el
@@ -232,8 +232,9 @@ This is relative to `smtpmail-queue-dir'.")
 		(error "Sending failed; no recipients"))
 	    (let* ((file-data (concat 
 			       smtpmail-queue-dir
-			       (time-stamp-strftime 
-				"%02y%02m%02d-%02H%02M%02S")))
+				   (mapconcat
+					(lambda (arg) (format "%x" arg))
+					(current-time) "")))
 		   (file-elisp (concat file-data ".el"))
 		   (buffer-data (create-file-buffer file-data))
 		   (buffer-elisp (create-file-buffer file-elisp))
@@ -242,7 +243,7 @@ This is relative to `smtpmail-queue-dir'.")
 		(set-buffer buffer-data)
 		(erase-buffer)
 		(insert-buffer tembuf)
-		(write-file file-data)
+		(write-region-as-binary (point-min) (point-max) file-data)
 		(set-buffer buffer-elisp)
 		(erase-buffer)
 		(insert (concat
@@ -278,7 +279,7 @@ This is relative to `smtpmail-queue-dir'.")
 						   (end-of-line)
 						   (point))))
 	(load file-msg)
-	(setq tembuf (find-file-noselect file-msg))
+	(setq tembuf (find-file-noselect-as-binary file-msg))
 	(if smtpmail-recipient-address-list
 	    (if (not (smtp-via-smtp user-mail-address
 				    smtpmail-recipient-address-list tembuf))