[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el
From: |
ShengHuo ZHU |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el |
Date: |
Thu, 21 Mar 2002 14:11:24 -0500 |
Index: emacs/lisp/gnus/mm-decode.el
diff -c emacs/lisp/gnus/mm-decode.el:1.11 emacs/lisp/gnus/mm-decode.el:1.12
*** emacs/lisp/gnus/mm-decode.el:1.11 Sun Jul 15 13:42:53 2001
--- emacs/lisp/gnus/mm-decode.el Thu Mar 21 14:11:23 2002
***************
*** 400,406 ****
(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)))
(filename (mail-content-type-get
(mm-handle-disposition handle) 'filename))
(mime-info (mailcap-mime-info
--- 400,407 ----
(mm-handle-set-undisplayer handle mm)))))
;; The function is a string to be executed.
(mm-insert-part handle)
! (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,421 ****
(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))))
(let ((coding-system-for-write mm-binary-coding-system))
(write-region (point-min) (point-max) file nil 'nomesg))
(message "Viewing with %s" method)
--- 411,421 ----
(copiousoutput (assoc "copiousoutput" mime-info))
file buffer)
;; We create a private sub-directory where we store our files.
(set-file-modes dir 448)
(if filename
(setq file (expand-file-name (file-name-nondirectory filename)
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,805 ****
;; (without a ton of work) is to write them
;; out to a file, and then create a file
;; specifier.
! (let ((file (make-temp-name
(expand-file-name "emm.xbm"
mm-tmp-directory))))
(unwind-protect
--- 799,805 ----
;; (without a ton of work) is to write them
;; out to a file, and then create a file
;; specifier.
! (let ((file (mm-make-temp-file
(expand-file-name "emm.xbm"
mm-tmp-directory))))
(unwind-protect
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el,
ShengHuo ZHU <=