Mercurial > emacs

changeset 88319:b9edc6f892af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-mime): Fix invocation of view-buffer.
author Alex Schroeder <alex@gnu.org>
date Fri, 17 Feb 2006 01:01:44 +0000
parents 79686c37e905
children d2186c6dc979
files lisp/mail/rmailmm.el
diffstat 1 files changed, 7 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmailmm.el	Fri Feb 17 00:56:04 2006 +0000
+++ b/lisp/mail/rmailmm.el	Fri Feb 17 01:01:44 2006 +0000
@@ -388,12 +388,13 @@
 		  (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)