[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115603: lisp/gnus/gnus-uu.el: Fix temporary files d
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] trunk r115603: lisp/gnus/gnus-uu.el: Fix temporary files deletion bug |
Date: |
Thu, 19 Dec 2013 04:41:38 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115603
revision-id: address@hidden
parent: address@hidden
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2013-12-19 04:41:35 +0000
message:
lisp/gnus/gnus-uu.el: Fix temporary files deletion bug
modified:
lisp/gnus/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1433
lisp/gnus/gnus-uu.el gnusuu.el-20091113204419-o5vbwnq5f7feedwu-1141
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2013-12-18 22:11:40 +0000
+++ b/lisp/gnus/ChangeLog 2013-12-19 04:41:35 +0000
@@ -1,3 +1,12 @@
+2013-12-18 Katsumi Yamaoka <address@hidden>
+
+ * gnus-uu.el (gnus-uu-decode-binhex, gnus-uu-decode-binhex-view):
+ Make sure work directory exists.
+ (gnus-uu-digest-mail-forward): Store temporary files in work directory
+ rather than tmp directory.
+ (gnus-summary-prepare-exit-hook): Replace gnus-exit-group-hook, that is
+ not necessarily always run, with it.
+
2013-12-18 Jan Tatarik <address@hidden>
* gnus-icalendar.el (gnus-icalendar-identities): Make changing the
=== modified file 'lisp/gnus/gnus-uu.el'
--- a/lisp/gnus/gnus-uu.el 2013-08-01 22:58:40 +0000
+++ b/lisp/gnus/gnus-uu.el 2013-12-19 04:41:35 +0000
@@ -406,6 +406,7 @@
(read-directory-name "Unbinhex and save in dir: "
gnus-uu-default-dir
gnus-uu-default-dir))))
+ (gnus-uu-initialize)
(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))
@@ -471,6 +472,7 @@
(list current-prefix-arg
(read-file-name "Unbinhex, view and save in dir: "
gnus-uu-default-dir gnus-uu-default-dir)))
+ (gnus-uu-initialize)
(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)))
@@ -482,8 +484,9 @@
(defun gnus-uu-digest-mail-forward (&optional n post)
"Digests and forwards all articles in this series."
(interactive "P")
+ (gnus-uu-initialize)
(let ((gnus-uu-save-in-digest t)
- (file (mm-make-temp-file (nnheader-concat gnus-uu-tmp-dir "forward")))
+ (file (mm-make-temp-file (nnheader-concat gnus-uu-work-dir "forward")))
(message-forward-as-mime message-forward-as-mime)
(mail-parse-charset gnus-newsgroup-charset)
(mail-parse-ignored-charsets gnus-newsgroup-ignored-charsets)
@@ -1836,8 +1839,8 @@
;; Initializing
-(add-hook 'gnus-exit-group-hook 'gnus-uu-clean-up)
-(add-hook 'gnus-exit-group-hook 'gnus-uu-delete-work-dir)
+(add-hook 'gnus-summary-prepare-exit-hook 'gnus-uu-clean-up)
+(add-hook 'gnus-summary-prepare-exit-hook 'gnus-uu-delete-work-dir)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115603: lisp/gnus/gnus-uu.el: Fix temporary files deletion bug,
Katsumi Yamaoka <=