diff options
| author | Glenn Morris | 2018-07-07 09:27:44 -0700 |
|---|---|---|
| committer | Glenn Morris | 2018-07-07 09:27:44 -0700 |
| commit | d3e0fdc24f85de3b33de007b8e1ca24560559d9b (patch) | |
| tree | 751ecc26bd89a0b0d6b9b7a49f299c43fff0a445 /lisp/mh-e | |
| parent | 77166e0da2d58f2f6436989b7059d913be5b3439 (diff) | |
| parent | a427de9c86ed31b1fd7599664b3fea0733e633ee (diff) | |
| download | emacs-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.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 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) |