aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/mh-e
diff options
context:
space:
mode:
authorGlenn Morris2018-07-07 09:27:44 -0700
committerGlenn Morris2018-07-07 09:27:44 -0700
commitd3e0fdc24f85de3b33de007b8e1ca24560559d9b (patch)
tree751ecc26bd89a0b0d6b9b7a49f299c43fff0a445 /lisp/mh-e
parent77166e0da2d58f2f6436989b7059d913be5b3439 (diff)
parenta427de9c86ed31b1fd7599664b3fea0733e633ee (diff)
downloademacs-d3e0fdc24f85de3b33de007b8e1ca24560559d9b.tar.gz
emacs-d3e0fdc24f85de3b33de007b8e1ca24560559d9b.zip
Merge from origin/emacs-26
a427de9 (origin/emacs-26) Fix bug #11732 3a04e15 Improve documentation of 'emacs-lock-mode' 9d6ca5a * lisp/imenu.el (imenu-generic-expression): Doc fix. (Bug#32... fdd7e7d Improve indexing of 'eval-defun' in ELisp manual 10af989 Fix (length CIRCULAR) documentation 271d1f7 Tramp editorials 4abf94f Clarify and improve doc strings of 'eval-last-sexp' and friends 6cfc7a7 Automate upload of Emacs manuals to gnu.org b73cde5 Fix MH-E mail composition with GNU Mailutils (SF#485) 0dce5e5 Speed up 'replace-buffer-contents' some more 00fdce0 * doc/emacs/docstyle.texi: Avoid messing up the html output. Conflicts: admin/make-tarball.txt
Diffstat (limited to 'lisp/mh-e')
-rw-r--r--lisp/mh-e/mh-comp.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-comp.el b/lisp/mh-e/mh-comp.el
index 1a77daff9b7..2b49fae2a6d 100644
--- a/lisp/mh-e/mh-comp.el
+++ b/lisp/mh-e/mh-comp.el
@@ -927,8 +927,10 @@ CONFIG is the window configuration before sending mail."
927 (list "-form" mh-comp-formfile))) 927 (list "-form" mh-comp-formfile)))
928 (setq new (make-temp-file "comp.")) 928 (setq new (make-temp-file "comp."))
929 (rename-file (concat temp-folder "/" "1") new t) 929 (rename-file (concat temp-folder "/" "1") new t)
930 (delete-file (concat temp-folder "/" ".mh_sequences")) 930 ;; The temp folder could contain various metadata files. Rather
931 (delete-directory temp-folder) 931 ;; than trying to enumerate all the known files, just do a
932 ;; recursive delete on the directory.
933 (delete-directory temp-folder t)
932 new)) 934 new))
933 935
934(defun mh-read-draft (use initial-contents delete-contents-file) 936(defun mh-read-draft (use initial-contents delete-contents-file)