Mercurial > emacs

diff lisp/gnus/mm-decode.el @ 44075:7782e54757bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* mail-source.el (make-source-make-complex-temp-name): Use make-temp-file. * mm-util.el (mm-make-temp-file): New function. * nneething.el (nneething-file-name): Use it. * mm-decode.el (mm-display-external, mm-create-image-xemacs): Ditto. * gnus-uu.el (gnus-uu-decode-binhex, gnus-uu-decode-binhex-view) (gnus-uu-digest-mail-forward, gnus-uu-initialize): Ditto. * gnus-start.el (gnus-slave-save-newsrc): Ditto. * message.el (message-mode): If buffer-file-name, don't set auto save file name. Trivial change from Geoff Greene <ggreene@wpi.edu>
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Thu, 21 Mar 2002 19:11:23 +0000
parents a26d9b55abb6
children 0d8b17d428b5
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el	Thu Mar 21 13:02:34 2002 +0000
+++ b/lisp/gnus/mm-decode.el	Thu Mar 21 19:11:23 2002 +0000
@@ -400,7 +400,8 @@
 		  (mm-handle-set-undisplayer handle mm)))))
 	;; The function is a string to be executed.
 	(mm-insert-part handle)
-	(let* ((dir (make-temp-name (expand-file-name "emm." mm-tmp-directory)))
+ 	(let* ((dir (mm-make-temp-file
+		     (expand-file-name "emm." mm-tmp-directory) 'dir))
 	       (filename (mail-content-type-get
 			  (mm-handle-disposition handle) 'filename))
 	       (mime-info (mailcap-mime-info
@@ -410,12 +411,11 @@
 	       (copiousoutput (assoc "copiousoutput" mime-info))
 	       file buffer)
 	  ;; We create a private sub-directory where we store our files.
-	  (make-directory dir)
 	  (set-file-modes dir 448)
 	  (if filename
 	      (setq file (expand-file-name (file-name-nondirectory filename)
 					   dir))
-	    (setq file (make-temp-name (expand-file-name "mm." dir))))
+	    (setq file (mm-make-temp-file (expand-file-name "mm." dir))))
 	  (let ((coding-system-for-write mm-binary-coding-system))
 	    (write-region (point-min) (point-max) file nil 'nomesg))
 	  (message "Viewing with %s" method)
@@ -799,7 +799,7 @@
 			  ;; (without a ton of work) is to write them
 			  ;; out to a file, and then create a file
 			  ;; specifier.
-			  (let ((file (make-temp-name
+			  (let ((file (mm-make-temp-file
 				       (expand-file-name "emm.xbm"
 							 mm-tmp-directory))))
 			    (unwind-protect