diff options
| author | Bill Wohler <wohler@newt.com> | 2008-05-19 04:12:55 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2008-05-19 04:12:55 +0000 |
| commit | fad5a93af9fb6c297242cf1f8c66f219a39ad910 (patch) | |
| tree | 853c8bacc163a351146647f8fb87878f7b2478ad /lisp/mh-e/mh-mime.el | |
| parent | 7911d1c825e70e7b92384d4e3afea84e8c77fd9d (diff) | |
| download | emacs-fad5a93af9fb6c297242cf1f8c66f219a39ad910.tar.gz | |
(mh-mh-to-mime, mh-mh-to-mime-undo): Preserve modes when converting to
or from MIME (closes SF #1966722).
Diffstat (limited to 'lisp/mh-e/mh-mime.el')
| -rw-r--r-- | lisp/mh-e/mh-mime.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-mime.el b/lisp/mh-e/mh-mime.el index aa12a5cb62a..0e017074ee8 100644 --- a/lisp/mh-e/mh-mime.el +++ b/lisp/mh-e/mh-mime.el @@ -1485,7 +1485,7 @@ The effects of this command can be undone by running "mhn" (if extra-args mh-mh-to-mime-args) buffer-file-name))) - (revert-buffer t t) + (revert-buffer t t t) (message "Running %s...done" (if (mh-variant-p 'nmh) "mhbuild" "mhn")) (run-hooks 'mh-mh-to-mime-hook)) @@ -1531,7 +1531,7 @@ a prefix argument NOCONFIRM." (let ((buffer-read-only nil)) (erase-buffer) (insert-file-contents backup-file)) - (after-find-file nil))) + (after-find-file nil nil nil nil t))) ;; Shush compiler. (defvar mh-identity-pgg-default-user-id) |