[Emacs-diffs] Changes to emacs/lisp/gnus/mm-decode.el

[ShengHuo ZHU]

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