procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix MH-E mail composition with GNU Mailutils (SF#485)

Browse source 
* lisp/mh-e/mh-comp.el (mh-bare-components): Recursively delete
the temporary folder.
This commit is contained in:
Mike Kupfer 2018-07-04 15:43:04 -07:00
parent 0dce5e5920
commit b73cde5e28
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/mh-e/mh-comp.el
View file

@ -925,8 +925,10 @@ CONFIG is the window configuration before sending mail."
(list "-form" mh-comp-formfile))) (list "-form" mh-comp-formfile)))
(setq new (make-temp-file "comp.")) (setq new (make-temp-file "comp."))
(rename-file (concat temp-folder "/" "1") new t) (rename-file (concat temp-folder "/" "1") new t)
(delete-file (concat temp-folder "/" ".mh_sequences")) ;; The temp folder could contain various metadata files. Rather
(delete-directory temp-folder) ;; than trying to enumerate all the known files, just do a
;; recursive delete on the directory.
(delete-directory temp-folder t)
new)) new))
(defun mh-read-draft (use initial-contents delete-contents-file) (defun mh-read-draft (use initial-contents delete-contents-file)