/[emacs]/emacs/lisp/gnus/gnus-uu.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-uu.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by pj, Sun Jul 15 17:42:53 2001 UTC revision 1.14 by zsh, Thu Mar 21 19:11:23 2002 UTC
# Line 457  didn't work, and overwrite existing file Line 457  didn't work, and overwrite existing file
457                            gnus-uu-default-dir                            gnus-uu-default-dir
458                            gnus-uu-default-dir))))                            gnus-uu-default-dir))))
459    (setq gnus-uu-binhex-article-name    (setq gnus-uu-binhex-article-name
460          (make-temp-name (concat gnus-uu-work-dir "binhex")))          (mm-make-temp-file (expand-file-name "binhex" gnus-uu-work-dir)))
461    (gnus-uu-decode-with-method 'gnus-uu-binhex-article n dir))    (gnus-uu-decode-with-method 'gnus-uu-binhex-article n dir))
462    
463  (defun gnus-uu-decode-uu-view (&optional n)  (defun gnus-uu-decode-uu-view (&optional n)
# Line 510  didn't work, and overwrite existing file Line 510  didn't work, and overwrite existing file
510           (read-file-name "Unbinhex, view and save in dir: "           (read-file-name "Unbinhex, view and save in dir: "
511                           gnus-uu-default-dir gnus-uu-default-dir)))                           gnus-uu-default-dir gnus-uu-default-dir)))
512    (setq gnus-uu-binhex-article-name    (setq gnus-uu-binhex-article-name
513          (make-temp-name (concat gnus-uu-work-dir "binhex")))          (mm-make-temp-file (expand-file-name "binhex" gnus-uu-work-dir)))
514    (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))    (let ((gnus-view-pseudos (or gnus-view-pseudos 'automatic)))
515      (gnus-uu-decode-binhex n file)))      (gnus-uu-decode-binhex n file)))
516    
# Line 521  didn't work, and overwrite existing file Line 521  didn't work, and overwrite existing file
521    "Digests and forwards all articles in this series."    "Digests and forwards all articles in this series."
522    (interactive "P")    (interactive "P")
523    (let ((gnus-uu-save-in-digest t)    (let ((gnus-uu-save-in-digest t)
524          (file (make-temp-name (nnheader-concat gnus-uu-tmp-dir "forward")))          (file (mm-make-temp-file (nnheader-concat gnus-uu-tmp-dir "forward")))
525          (message-forward-as-mime message-forward-as-mime)          (message-forward-as-mime message-forward-as-mime)
526          (mail-parse-charset gnus-newsgroup-charset)          (mail-parse-charset gnus-newsgroup-charset)
527          (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)          (mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)
# Line 1779  Gnus might fail to display all of it.") Line 1779  Gnus might fail to display all of it.")
1779                   gnus-uu-tmp-dir)))                   gnus-uu-tmp-dir)))
1780    
1781        (setq gnus-uu-work-dir        (setq gnus-uu-work-dir
1782              (make-temp-name (concat gnus-uu-tmp-dir "gnus")))              (mm-make-temp-file (concat gnus-uu-tmp-dir "gnus") 'dir))
       (gnus-make-directory gnus-uu-work-dir)  
1783        (set-file-modes gnus-uu-work-dir 448)        (set-file-modes gnus-uu-work-dir 448)
1784        (setq gnus-uu-work-dir (file-name-as-directory gnus-uu-work-dir))        (setq gnus-uu-work-dir (file-name-as-directory gnus-uu-work-dir))
1785        (push (cons gnus-newsgroup-name gnus-uu-work-dir)        (push (cons gnus-newsgroup-name gnus-uu-work-dir)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26