From af158315e9081a3b9bc7efdade28ef93d38dd4a9 Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Fri, 17 Feb 2006 01:01:44 +0000 Subject: [PATCH] (rmail-mime): Fix invocation of view-buffer. --- lisp/mail/rmailmm.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el index 9c47b2ef681..8e1655e0c66 100644 --- 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) -- 2.39.5