X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=mime-edit.el;h=d9bb3592716a5ded3e29540bbed7d538cc545127;hb=1e28d7c2ec749121b7f9434232b7a936a8de3fe6;hp=c1956feb09c6c9ea600bcfc8254b8cd2dd501cc3;hpb=ab4798b4076dd4a550cb07e7a1e5cb00a62e4feb;p=elisp%2Fsemi.git

diff --git a/mime-edit.el b/mime-edit.el
index c1956fe..d9bb359 100644
--- a/mime-edit.el
+++ b/mime-edit.el
@@ -1057,6 +1057,7 @@ User customizable variables (not documented all of them):
 		     paragraph-separate))
     (run-hooks 'mime-edit-mode-hook)
     (message
+     "%s"
      (substitute-command-keys
       "Type \\[mime-edit-exit] to exit MIME mode, and type \\[mime-edit-help] to get help."))
     ))
@@ -2605,11 +2606,7 @@ Content-Type: message/partial; id=%s; number=%d; total=%d\n%s\n"
 	    (or (cdr (assq major-mode mime-edit-message-max-lines-alist))
 		mime-edit-message-default-max-lines))
       )
-  (let* ((mime-edit-draft-file-name
-	  (or (buffer-file-name)
-	      (make-temp-name
-	       (expand-file-name "mime-draft" temporary-file-directory))))
-	 (separator mail-header-separator)
+  (let* ((separator mail-header-separator)
 	 (id (concat "\""
 		     (replace-space-with-underline (current-time-string))
 		     "@" (system-name) "\"")))