Source

tm / tm-mh-e.el

Diff from to

tm-mh-e.el

 		    (replace-match "")
 		    )
 		  )
-		 (set-buffer-modified-p nil)
-		 (setq buffer-read-only t)
 		 (setq buffer-file-name msg-filename)
 		 (mh-show-mode)
 		 (save-excursion
 			    (goto-char (point-min)))
 			   (t
 			    (mh-start-of-uncleaned-message)))))
+		 (set-buffer-modified-p nil)
+		 (setq buffer-read-only t)
 		 (mime/viewer-mode nil nil nil
 				   aname (concat "show-" folder))
 		 (goto-char (point-min))