(set-buffer-modified-p nil)
(setq buffer-read-only t)
(setq buffer-file-name msg-filename)
(mh-show-mode)
(mime-display-message (mime-open-entity 'buffer aname)
(concat "show-" folder))
(set-buffer-modified-p nil)
(setq buffer-read-only t)
(setq buffer-file-name msg-filename)
(mh-show-mode)
(mime-display-message (mime-open-entity 'buffer aname)
(concat "show-" folder))