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) |
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 |
|
|
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) |
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) |