32 lines
1.1 KiB
Diff
32 lines
1.1 KiB
Diff
|
From b73cde5e2815c531df7f5fd13e214a7d92f78239 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Mike Kupfer <mkupfer@alum.berkeley.edu>
|
||
|
|
Date: Wed, 4 Jul 2018 15:43:04 -0700
|
||
|
|
Subject: [PATCH] Fix MH-E mail composition with GNU Mailutils (SF#485)
|
||
|
|
|
||
|
|
* lisp/mh-e/mh-comp.el (mh-bare-components): Recursively delete
|
||
|
|
the temporary folder.
|
||
|
|
---
|
||
|
|
lisp/mh-e/mh-comp.el | 6 ++++--
|
||
|
|
1 file changed, 4 insertions(+), 2 deletions(-)
|
||
|
|
|
||
|
|
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
|
||
|
|
index a9f809cfa1..aa22df8b18 100644
|
||
|
|
--- a/lisp/mh-e/mh-comp.el
|
||
|
|
+++ b/lisp/mh-e/mh-comp.el
|
||
|
|
@@ -925,8 +925,10 @@ mh-bare-components
|
||
|
|
(list "-form" mh-comp-formfile)))
|
||
|
|
(setq new (make-temp-file "comp."))
|
||
|
|
(rename-file (concat temp-folder "/" "1") new t)
|
||
|
|
- (delete-file (concat temp-folder "/" ".mh_sequences"))
|
||
|
|
- (delete-directory temp-folder)
|
||
|
|
+ ;; The temp folder could contain various metadata files. Rather
|
||
|
|
+ ;; than trying to enumerate all the known files, just do a
|
||
|
|
+ ;; recursive delete on the directory.
|
||
|
|
+ (delete-directory temp-folder t)
|
||
|
|
new))
|
||
|
|
|
||
|
|
(defun mh-read-draft (use initial-contents delete-contents-file)
|
||
|
|
--
|
||
|
|
2.36.1
|
||
|
|
|