From 456cea206ab0bd804abaeb3b1b55f66a14f8e811 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 16 Jul 1999 06:06:28 +0000 Subject: [PATCH] From Nakagawa, Makoto : (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. --- smtpmail.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4