Index: tm-mh-e.el
===================================================================
RCS file: /users/darrylo/.repository/xemacs-20.4/lisp/tm/tm-mh-e.el,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -c -c -r1.1.1.1 -r1.2
*** tm-mh-e.el	1998/03/14 18:57:57	1.1.1.1
--- tm-mh-e.el	1998/05/19 02:18:22	1.2
***************
*** 6,12 ****
  ;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
  ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
  ;; Created: 1993/11/21 (obsolete mh-e-mime.el)
! ;; Version: $Revision: 1.1.1.1 $
  ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
  
  ;; This file is part of tm (Tools for MIME).
--- 6,12 ----
  ;;         OKABE Yasuo <okabe@kudpc.kyoto-u.ac.jp>
  ;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
  ;; Created: 1993/11/21 (obsolete mh-e-mime.el)
! ;; Version: $Revision: 1.2 $
  ;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
  
  ;; This file is part of tm (Tools for MIME).
***************
*** 48,54 ****
  ;;;
  
  (defconst tm-mh-e/RCS-ID
!   "$Id: tm-mh-e.el,v 1.1.1.1 1998/03/14 18:57:57 darrylo Exp $")
  
  (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
  
--- 48,54 ----
  ;;;
  
  (defconst tm-mh-e/RCS-ID
!   "$Id: tm-mh-e.el,v 1.2 1998/05/19 02:18:22 darrylo Exp $")
  
  (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
  
***************
*** 114,121 ****
  		    (replace-match "")
  		    )
  		  )
- 		 (set-buffer-modified-p nil)
- 		 (setq buffer-read-only t)
  		 (setq buffer-file-name msg-filename)
  		 (mh-show-mode)
  		 (save-excursion
--- 114,119 ----
***************
*** 127,132 ****
--- 125,132 ----
  			    (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))