X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=tm-rmail.el;h=d1e1d76f29e4e0f82cc93582c21c80e9f2601d97;hb=0fa17be6ba325078add802509cdbc980c6af7c45;hp=b995236fe9dc5b6b441ece398c5e8aa03a0bb09f;hpb=6f60f010f0797bb67af3aa0bf0f202b61ad7b72d;p=elisp%2Ftm.git

diff --git a/tm-rmail.el b/tm-rmail.el
index b995236..d1e1d76 100644
--- a/tm-rmail.el
+++ b/tm-rmail.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-rmail.el,v 3.1 1994/08/31 05:37:24 morioka Exp $
+;;; $Id: tm-rmail.el,v 5.1 1994/10/17 06:31:29 morioka Exp $
 ;;;
 
 (provide 'tm-rmail)
@@ -7,22 +7,22 @@
 (if (< (string-to-int emacs-version) 19)
     (require 'tl-18)
   )
-(autoload 'mime/view-mode "tm-view" "View MIME message." t)
+(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
 (autoload 'mime/decode-message-header "tiny-mime" "Decode MIME header." t)
 
 (add-hook 'rmail-show-message-hook
 	  (function
 	   (lambda ()
-	     (let ((buffer-read-only nil))
+	     (let ((mf (buffer-modified-p))
+		   (buffer-read-only nil))
 	       (mime/decode-message-header)
-	       )
-	     (set-buffer-modified-p nil)
-	     )))
+	       (set-buffer-modified-p mf)
+	       ))))
 
 (add-hook 'rmail-mode-hook
 	  (function
 	   (lambda ()
-	     (local-set-key "v" 'mime/view-mode)
+	     (local-set-key "v" 'mime/viewer-mode)
 	     )))
 
 (add-hook 'rmail-summary-mode-hook
@@ -32,7 +32,7 @@
 			    (function
 			     (lambda ()
 			       (interactive)
-			       (pop-to-buffer "RMAIL")
-			       (mime/view-mode)
+			       (pop-to-buffer rmail-buffer)
+			       (mime/viewer-mode)
 			       )))
 	     )))