(rmail-mime): Fix invocation of view-buffer.

diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index 9c47b2ef6815d746c77ed6f6284fca81e9e8e073..8e1655e0c66e2aa18a53a8c5b292580c432c43a4 100644 (file)
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -388,12 +388,13 @@ This calls `rmail-mime-show' to do the real job."
                  (buffer-substring
                   (rmail-desc-get-start rmail-current-message)
                   (rmail-desc-get-end rmail-current-message)))))
-       (inhibit-read-only t))
-    (switch-to-buffer (get-buffer-create "*RMAIL*"))
-    (erase-buffer)
-    (insert data)
-    (rmail-mime-show t)
-    (view-mode 1)))
+       (buf (get-buffer-create "*RMAIL*")))
+    (set-buffer buf)
+    (let ((inhibit-read-only t))
+      (erase-buffer)
+      (insert data)
+      (rmail-mime-show t))
+    (view-buffer buf)))
 
 (provide 'rmailmm)