diff options
| author | Mike Kupfer | 2018-07-04 15:43:04 -0700 |
|---|---|---|
| committer | Mike Kupfer | 2018-07-04 15:43:04 -0700 |
| commit | b73cde5e2815c531df7f5fd13e214a7d92f78239 (patch) | |
| tree | 34b99a6b063deb7520592d2dcc52a4ab88c4d076 /lisp | |
| parent | 0dce5e59206db7bd0b9cd43ae712272105300ae4 (diff) | |
| download | emacs-b73cde5e2815c531df7f5fd13e214a7d92f78239.tar.gz emacs-b73cde5e2815c531df7f5fd13e214a7d92f78239.zip | |
Fix MH-E mail composition with GNU Mailutils (SF#485)
* lisp/mh-e/mh-comp.el (mh-bare-components): Recursively delete
the temporary folder.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mh-e/mh-comp.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el index a9f809cfa13..aa22df8b187 100644 --- a/lisp/mh-e/mh-comp.el +++ b/lisp/mh-e/mh-comp.el | |||
| @@ -925,8 +925,10 @@ CONFIG is the window configuration before sending mail." | |||
| 925 | (list "-form" mh-comp-formfile))) | 925 | (list "-form" mh-comp-formfile))) |
| 926 | (setq new (make-temp-file "comp.")) | 926 | (setq new (make-temp-file "comp.")) |
| 927 | (rename-file (concat temp-folder "/" "1") new t) | 927 | (rename-file (concat temp-folder "/" "1") new t) |
| 928 | (delete-file (concat temp-folder "/" ".mh_sequences")) | 928 | ;; The temp folder could contain various metadata files. Rather |
| 929 | (delete-directory temp-folder) | 929 | ;; than trying to enumerate all the known files, just do a |
| 930 | ;; recursive delete on the directory. | ||
| 931 | (delete-directory temp-folder t) | ||
| 930 | new)) | 932 | new)) |
| 931 | 933 | ||
| 932 | (defun mh-read-draft (use initial-contents delete-contents-file) | 934 | (defun mh-read-draft (use initial-contents delete-contents-file) |