diff options
| author | Bill Wohler <wohler@newt.com> | 2008-05-19 04:12:32 +0000 |
|---|---|---|
| committer | Bill Wohler <wohler@newt.com> | 2008-05-19 04:12:32 +0000 |
| commit | 25207d8c1055e088ea4bc385b411cb9d7ff86e87 (patch) | |
| tree | f9b07c64222b3e4d7b844bb6890b2a94061ea832 /lisp/mh-e | |
| parent | e1031150b7ea015eb6639ca8357cb13c6cdd5015 (diff) | |
| download | emacs-25207d8c1055e088ea4bc385b411cb9d7ff86e87.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')
| -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) |