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

[ShengHuo ZHU]

Index: emacs/lisp/gnus/gnus-uu.el
diff -c emacs/lisp/gnus/gnus-uu.el:1.13 emacs/lisp/gnus/gnus-uu.el:1.14
*** emacs/lisp/gnus/gnus-uu.el:1.13     Sun Jul 15 13:42:53 2001
--- emacs/lisp/gnus/gnus-uu.el  Thu Mar 21 14:11:23 2002
***************
*** 457,463 ****
                          gnus-uu-default-dir
                          gnus-uu-default-dir))))
    (setq gnus-uu-binhex-article-name
!       (make-temp-name (concat gnus-uu-work-dir "binhex")))
    (gnus-uu-decode-with-method 'gnus-uu-binhex-article n dir))
  
  (defun gnus-uu-decode-uu-view (&optional n)
--- 457,463 ----
                          gnus-uu-default-dir
                          gnus-uu-default-dir))))
    (setq gnus-uu-binhex-article-name
!       (mm-make-temp-file (expand-file-name "binhex" gnus-uu-work-dir)))
    (gnus-uu-decode-with-method 'gnus-uu-binhex-article n dir))
  
  (defun gnus-uu-decode-uu-view (&optional n)
***************
*** 510,516 ****
         (read-file-name "Unbinhex, view and save in dir: "
                         gnus-uu-default-dir gnus-uu-default-dir)))
    (setq gnus-uu-binhex-article-name
!       (make-temp-name (concat gnus-uu-work-dir "binhex")))
    (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
      (gnus-uu-decode-binhex n file)))
  
--- 510,516 ----
         (read-file-name "Unbinhex, view and save in dir: "
                         gnus-uu-default-dir gnus-uu-default-dir)))
    (setq gnus-uu-binhex-article-name
!       (mm-make-temp-file (expand-file-name "binhex" gnus-uu-work-dir)))
    (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
      (gnus-uu-decode-binhex n file)))
  
***************
*** 521,527 ****
    "Digests and forwards all articles in this series."
    (interactive "P")
    (let ((gnus-uu-save-in-digest t)
!       (file (make-temp-name (nnheader-concat gnus-uu-tmp-dir "forward")))
        (message-forward-as-mime message-forward-as-mime)
        (mail-parse-charset gnus-newsgroup-charset)
        (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)
--- 521,527 ----
    "Digests and forwards all articles in this series."
    (interactive "P")
    (let ((gnus-uu-save-in-digest t)
!       (file (mm-make-temp-file (nnheader-concat gnus-uu-tmp-dir "forward")))
        (message-forward-as-mime message-forward-as-mime)
        (mail-parse-charset gnus-newsgroup-charset)
        (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)
***************
*** 1779,1786 ****
                 gnus-uu-tmp-dir)))
  
        (setq gnus-uu-work-dir
!           (make-temp-name (concat gnus-uu-tmp-dir "gnus")))
!       (gnus-make-directory gnus-uu-work-dir)
        (set-file-modes gnus-uu-work-dir 448)
        (setq gnus-uu-work-dir (file-name-as-directory gnus-uu-work-dir))
        (push (cons gnus-newsgroup-name gnus-uu-work-dir)
--- 1779,1785 ----
                 gnus-uu-tmp-dir)))
  
        (setq gnus-uu-work-dir
!           (mm-make-temp-file (concat gnus-uu-tmp-dir "gnus") 'dir))
        (set-file-modes gnus-uu-work-dir 448)
        (setq gnus-uu-work-dir (file-name-as-directory gnus-uu-work-dir))
        (push (cons gnus-newsgroup-name gnus-uu-work-dir)