From: Bill Wohler <wohler@newt.com>
Date: Mon, 19 May 2008 04:12:55 +0000 (+0000)
Subject: (mh-mh-to-mime, mh-mh-to-mime-undo): Preserve modes when converting to
X-Git-Tag: emacs-pretest-23.0.90~5440
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fad5a93af9fb6c297242cf1f8c66f219a39ad910;p=emacs.git

(mh-mh-to-mime, mh-mh-to-mime-undo): Preserve modes when converting to
or from MIME (closes SF #1966722).
---

diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog
index ba595ab8f4c..7de0d67df2b 100644
--- a/lisp/mh-e/ChangeLog
+++ b/lisp/mh-e/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-19  Sergey Poznyakoff <gray@gnu.org.ua>  (tiny change)
+
+	* mh-mime.el (mh-mh-to-mime, mh-mh-to-mime-undo): Preserve modes
+	when converting to or from MIME (closes SF #1966722).
+
 2008-05-19  Bill Wohler  <wohler@newt.com>
 
 	* mh-e.el (mh-invisible-header-fields-internal): Sort list in a
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)